EXCEL VBA 给单元格添加超链接

1、原始文件

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

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

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

7、双击“指定文件路径”按钮，添加如下代码：Dim objShell Dim objFolder 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

9、返回到表格文件中，双击“添加超链接”按钮，添加如下代码，启动窗体文件。UserForm1.Show保存退出。