没学习VBA之前，我们是怎么给文件创建超链接的呢？
给你的工作簿做个目录
当然用上文中的方法我们也可以轻松创建目录，但那是给一个工作簿中其它的Sheet创建目录，如果是给文件夹中的文件创建目录的话，还是VBA比较方便。
如下图：
想给文件夹中各个分公司的文件创建个目录，编写个简单的代码，一个按钮搞定。
代码如下：
Sub 创建超链接()
Dim rng As Range
For Each rng In Range("a1", [a1].End(xlDown))
Sheet1.Hyperlinks.Add rng(1, 2), "C:\Users\wuxupeng\Desktop\用VBA创建超链接\" & rng.Value, , , "打开" '红色部分为文件地址
Next
End Sub
一个for循环把文件名循环出来，然后直接Hyperlinks.Add。
表名.Hyperlinks.Add 创建位置，地址，副地址，屏幕提示，显示文本
红色部分为超链接的参数，创建位置和地址一定要写，后面的根据需要来写，如果不写，直接写逗号空着就行。
转自：米宏Office