同一文件夹excel表格批量超链接

时间:2024-10-12 05:26:17

1、首先,我们要将所有文件放在一个文件夹里面,如下图;

同一文件夹excel表格批量超链接

2、新建一个excel汇总表,目的是用VBA批量链接所有文件;

同一文件夹excel表格批量超链接

3、按下Alt+F8快捷键,并进行创建宏,可以先随便输入宏名;

同一文件夹excel表格批量超链接

4、然后将以下代码输入进去:Sub 提取文件夹内的文件名并建立超链接()Cells.ClearContents '清空数据myPath = ThisWorkbook.Path & "\" '当前文件夹路径,也可直接输入完整路径。n = 1myfile = 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 '计数、累加LoopFor Each Rng In Range("b2:b" & n) '遍历Sheets(1).Hyperlinks.Add Anchor:=Rng, Address:=Rng.Value, TextToDisplay:=Rng.Value '与相应的文档建立超链接。Next ActiveWorkbook.Save '保存End Sub

同一文件夹excel表格批量超链接

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

同一文件夹excel表格批量超链接

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

同一文件夹excel表格批量超链接
© 手抄报圈