EXCEL中如何批量设置到另一文件中EXCEL工作表的超链接?

楼上“朱家小妹”说的方法可行。但DOS命令使用不够准确。
假定你的A文件夹在E盘中。
先点“开始”、“运行”，输入：
CMD
按回车，进行DOS环境。
再输入：
E:
回车，进入E盘后，再输入：
CD A文件夹
回车。
再输入：
DIR /S/B>L.TXT
回车。这样得到的结果L.TXT文本文件中就只包含含有路径的文件名。
将L.TXT文件中的内容复制到excel中目录工作表的A列。
然后在B1输入公式：
=HYPERLINK(A1,A1)
将公式向下复制到相应行即可。

首先在开始运行中输入cmd进行DOS环境
然后进到A文件夹所在的盘，假设是D盘。D：
输入dir A/S >L.txt
然后用EXCEL打开L.txt
保留你的文件列表，去除多余的东西。必要时处理路径。存XLS到你需要的位置
然后用HYPERLINK(A2)函数，试试可以用向下拉到最后

Sub 获取打开窗下选中文件的完全路径和名称并为路径添加超链接()
Dim i As Integer, j&
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogOpen)
'msoFileDialogOpen表示允许打开一个文件
.AllowMultiSelect = True '允许多选
.Show '打开文件对话框
For i = 1 To .SelectedItems.Count
'SelectedItems.Count属性获取一个filedialogSelectedItems集合
'包含对象的 show方法,文件路径名称
Range("a" & i) = .SelectedItems(i)
'文件完全路径
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=Cells(i, 1)
'添加超链接

Next i
End With
End Sub