VB6 给EXCEL指定单元格添加链接

新建一个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

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

　　UserForm1.Show，保存退出。

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

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