c循环创建文件名_EXCEL用VBA创建超链接就是这么简单

没学习VBA之前，我们是怎么给文件创建超链接的呢？

给你的工作簿做个目录

当然用上文中的方法我们也可以轻松创建目录，但那是给一个工作簿中其它的Sheet创建目录，如果是给文件夹中的文件创建目录的话，还是VBA比较方便。

如下图：

想给文件夹中各个分公司的文件创建个目录，编写个简单的代码，一个按钮搞定。

代码如下：

Sub 创建超链接()

Dim rng As Range

For Each rng In Range("a1", [a1].End(xlDown))

Sheet1.Hyperlinks.Add rng(1, 2), "C:甥敳獲wuxupengDesktop用VBA创建超链接" & rng.Value, , , "打开" '红色部分为文件地址

Next

End Sub

一个for循环把文件名循环出来，然后直接Hyperlinks.Add。

表名.Hyperlinks.Add 创建位置，地址，副地址，屏幕提示，显示文本

红色部分为超链接的参数，创建位置和地址一定要写，后面的根据需要来写，如果不写，直接写逗号空着就行。

转自：米宏Office