1、原始文件
2、新建一个EXCEL表格，另存为启用宏的工作薄
3、在菜单栏，选择开发工具，点击下Visual Basic后，启动EXCEL VBA。
4、在开发工具上，选择插入-ActiveX插件中的按钮工具，创建一个按钮。
5、在EXCEL VBA上，点击插入-用户窗体，插入窗体文件。
6、依次添加标签，文本框和2个按钮，见附图
7、双击“指定文件路径”按钮，添加如下代码：Dim objShell Dim objFo盟敢势袂lder Dim strP锾攒揉敫ath 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 StringDim i, q, n As IntegerDim sht As WorksheetMyPath = 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 iMyname = DirLoop
9、返回到表格文件中，双击“添加超链接”按钮，添加如下代码，启动窗体文件。UserForm1.Show保存退出。
10、退出设计模式，点击“添加超链接”按钮，指定文件路径，点击窗体上的“添加超链接”。完成添加超链接。
11、点击每一个文件名称后，就可以打开其对应的文件夹了。
