第3个回答 2011-02-23
可以将所有的表名集中列在一个表里面,给表名设置相应表的链接
会使用宏的话hlopr的办法非常有效哦,建议采取
嘻嘻 我搜索到了一个快速生成表超链接目录的答案 很使用哦
^_^
下面这个步骤可以收集位于不同文件夹下面的表格文件名,并在当前打开的这个总表的第三列里为所有这些表格文件建立超链:
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\docs\test3\"
nRowIndex = 1
For Each strFolder In arrFolders
Set oFolder = fso.GetFolder(strFolder)
For Each oFile In oFolder.Files
strFile = oFile.Path
If (UCase(Right(strFile, 4)) = ".XLS") Or (UCase(Right(strFile, 5)) = ".XLSX") Then
Set oCell = Cells(nRowIndex, nColumnIndex)
oCell.Hyperlinks.Add Anchor:=oCell, Address:="file://" & strFile, TextToDisplay:=strFile
nRowIndex = nRowIndex + 1
End If
Next
Next
Set oFolder = Nothing
Set fso = Nothing
MsgBox "完成!"
End Sub
4、根据需要增加/删除上面代码中需要搜索的文件夹;同时也可以控制把超级链接生成到第几列去;
5、键入F5运行看到“完成!”结束;
6、键入ALT+Q退出代码编辑返回Excel表格界面,检查所有超链是否正确生成。
如果以后不在需要批量插入超链,则可以在保存这个总表前把上面的代码全部删除。从而避免了每次打开这个总表文件时,Excel都要提示是否启用宏什么的。