EXCEL如何批量插入超链接
来源:百度知道 编辑:UC知道 时间:2024/07/07 04:52:12
在同一个盘和不在同一个盘的都有.显示在单元格的文字可以不用
请问那7000多个文件是放在同一个目录下吗?或者说是否只要为某个目录下的所有Excel文件在那个总表里面建立超链就可以了。
还有,超链显示在单元格里面的文字是什么?文件名(去除前面的目录名)?
_____________________________________
补充,下面这个步骤可以收集位于不同文件夹下面的表格文件名,并在当前打开的这个总表的第三列里为所有这些表格文件建立超链:
1、在Excel里面打开或者新建一个表格作为总表;
2、在表格标签上单击鼠标右键,选择“查看代码”;
3、粘贴如下代码到编辑器里面去:
Option Explicit
Sub BuildHyperlinksToWorkbooks()
On Error Resume Next
Dim arrFolders As New Collection
Dim strFolder, strFile As String
Dim fso, oFolder, oFile
Dim oCell As Range
Dim nRowIndex As Integer, nColumnIndex As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
' 设置这个数字来控制把超级链接生成到第几列
nColumnIndex = 3
' 在下面调整/增/删需要搜索的文件夹
arrFolders.Add "C:\Temp\docs\test1\"
arrFolders.Add "C:\Temp\docs\test2\"
arrFolders.Add "C:\Temp\d