EXCEL VBA 给单元格添加超链接。对表格中的文件自动添加超链接，打开文件目录
工具/原料
- EXCEL 宏表
- EXCEL 2007
- 见附件的文件夹和表格文件
方法/步骤
- 1
原始文件
- 2
新建一个EXCEL表格，另存为启用宏的工作薄
- 3
在菜单栏，选择开发工具，点击下Visual Basic后，启动EXCEL VBA。
- 4
在开发工具上，选择插入-ActiveX插件中的按钮工具，创建一个按钮。
- 5
在EXCEL VBA上，点击插入-用户窗体，插入窗体文件。
- 6
依次添加标签，文本框和2个按钮，见附图
- 7
双击“指定文件路径”按钮，添加如下代码：
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
- 8
点击“添加超链接”按钮，加入如下代码：
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
- 9
返回到表格文件中，双击“添加超链接”按钮，添加如下代码，启动窗体文件。
UserForm1.Show
保存退出。
- 10
退出设计模式，点击“添加超链接”按钮，指定文件路径，点击窗体上的“添加超链接”。完成添加超链接。
- 11
点击每一个文件名称后，就可以打开其对应的文件夹了。
END