首先，我们要将所有文件放在一个文件夹里面，如下图；

新建一个excel汇总表，目的是用VBA批量链接所有文件；

按下Alt+F8快捷键，并进行创建宏，可以先随便输入宏名；

然后将以下代码输入进去：

Sub 提取文件夹内的文件名并建立超链接()

Cells.ClearContents 清空数据

myPath = ThisWorkbook.Path \ 当前文件夹路径，也可直接输入完整路径。

n = 1

myfile = Dir(myPath \*.*) 文件名

Do While myfile And myfile ThisWorkbook.Name 遍历。如果myfile不篁空或不等于它自己

Cells(1, 1) = 序号

Cells(1, 2) = 提取文件名显示如下

Cells(n + 1, 2) = myfile 数据写入

Cells(n + 1, 1) = n 编号

myfile = Dir 找寻下一个文件

n = n + 1 计数、累加

Loop

For Each Rng In Range(b2:b n) 遍历

Sheets(1).Hyperlinks.Add Anchor:=Rng, Address:=Rng.Value, TextToDisplay:=Rng.Value 与相应的文档建立超链接。

Next

ActiveWorkbook.Save 保存

End Sub

再关闭窗口，重新回到表格界面，按下宏快捷键Alt+F8，点击 运行；

最后就可以看到所有文件名称都被链接到汇总表里了。