EXCEL VBA 给单元格添加超链接-Excel教程

EXCEL VBA 给单元格添加超链接。对表格中的文件自动添加超链接，打开文件目录

前期准备工作（包括相关工具或所使用的原料等）

EXCEL 宏表EXCEL 2007 见附件的文件夹和表格文件

详细的操作方法或具体步骤

原始文件

新建一个EXCEL表格，另存为启用宏的工作薄

在菜单栏，选择开发工具，点击下Visual Basic后，启动EXCEL VBA。

在开发工具上，选择插入-ActiveX插件中的按钮工具，创建一个按钮。

在EXCEL VBA上，点击插入-用户窗体，插入窗体文件。

依次添加标签，文本框和2个按钮，见附图

双击“指定文件路径”按钮，添加如下代码：

Dim objShell

Dim objFolder

Dim strPath As String

Set objShell=CreateObject("Shell.Application")

Set objFolder=objShell.BrowseForFolder(0, "选择文件目录", 0, 0)

If Not objFolder Is Nothing Then

TextBox1.Text=objFolder.self.Path

Else

TextBox1.Text=""

End If

Set objFolder=Nothing

Set objShell=Nothing

点击“添加超链接”按钮，加入如下代码：

Dim MyPath, Myname As String

Dim i, q, n As Integer

Dim sht As Worksheet

MyPath=TextBox1.Text & "\"

Myname=Dir(MyPath, vbDirectory) '读取指定目录中的第一个文件夹名称

Set sht=ActiveWorkbook.Sheets(1)

n=ActiveSheet.UsedRange.Rows.Count '指定n为最大行数

If TextBox1.Text="" Then MsgBox ("请输入地址")

Do While Myname <> ""

For i=2 To n

If Myname <> "." And Myname <> ".." Then

If Myname=sht.Cells(i, 1) Then

sht.Hyperlinks.Add anchor:=sht.Cells(i, 1), Address:=MyPath & Myname & "\"

Else

End If

End If

Next i

Myname=Dir

Loop

返回到表格文件中，双击“添加超链接”按钮，添加如下代码，启动窗体文件。

UserForm1.Show

保存退出。

退出设计模式，点击“添加超链接”按钮，指定文件路径，点击窗体上的“添加超链接”。完成添加超链接。

点击每一个文件名称后，就可以打开其对应的文件夹了。

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。