SimoneEXCEL如何批量插入超链接
的有关信息介绍如下：问题补充说明：有一个总表,假如我想打开某个具体信息,就要打开另一张表,我想做个超链接,只要点一下他就能打开另一个表,这个我会做,只是这样太多了,有7000多个文件,请教高手一下具体怎样操作?20分悬偿,
请问那7000多个文件是放在同一个目录下烧城吗?或者说是否只要为某个目录下的所有Excel文件在那个总表里面建立超链就可以了。
还有，超链显示在单元格里面的文字是什么?文件名(去除前面供职争大罪致己剂画调更的目录名)?
________________________读求玉基停易外业易__________班___
补充，下面这个步骤可以收集位于不同文件夹下面的表格文件名，并在当前打开的这个总表的第三列里击验为所有这些表格文件弱比使线建立超链:
1、在通渐为声结它军游百Excel里面打开或者新建一个表格作为总表;
2、在表格标签上单击鼠标右键，选择“查看代码”;
3、粘贴如下代码到编辑器里面去:
OptionExplicit
SubBuildHyperlinksToWo富兴木认rkbooks()
OnErrorResumeN距第备控进车过旧整ext
DimarrFoldersAsNewCo足llection
DimstrFolder,strFileAsString
Dimfso,oFolder,oFile
DimoCellAsRange
DimnRowIndexAsInteger,nCol微电危umnIndexAsInte孙掉朝吗令讲无ger
Setfso=C春脚reateObject("Scripting.FileSystemObject")
'设置这个数字来控制把超级链接生成到第几列
nC善去德要补olumnIndex=3
'在下面调整/增/删需要搜索的文件夹
arrFolders.Add"C:\Temp\docs\test1\"
arrFolders.Add"C:\Temp\docs\test2\"
arrFolders.A更衣额dd"C:\Temp\docs\test3\"
nRowIndex=1
ForEachstr架头呼FolderInarrFolders
SetoFolder=fs讲京资段去存介补等亚随o.GetFolder(strFolder)
ForEachoFileInoFolder.Files
strFile=oFile.Path
If(UCase(Right(strFile,4))=".XLS")Or(UCase(Right(strFile,5))=".XLSX")Then
SetoCell=Cells(nRowIndex,nColumnIndex)
oCell.Hyperlinks.AddAnchor:=oCell,Address:="file://"&strFile,TextToDisplay:=strFile
nRowIndex=nRowIndex+1
EndIf
Next
Next
SetoFolder=Nothing
Setfso=Nothing
MsgBox"完成!"
EndSub
4、根据需要增加/删除上面代码中需要搜索的文件夹;同时也可以控制把超级链接生成到第几列去;
5、键入F5运行看到“完成!”结束;
6、键入ALT+Q退出代码编辑返回Excel表格界面，检查所有超链是否正确生成。
如果以后不在需要批量插入超链，则可以在保存这个总表前把上面的代码全部删除。从而避免了每次打开这个总表文件时，Excel都要提示是否启用宏什么的。
