如何在EXCEL中批量添加文件夹内文件的链接？

Question

如题~然后自动生成文件名的列表链接。比如：1 XXXX内容(链接)2 XXXX内容(链接)3 XXXX内容(链接)4 XXXX内容(链接)

Answer 1

1、把要复制的文件都放一个文件夹中，然后打开文件夹保存路径，复制路径。

2、复制路径后，打开浏览器，把路径粘贴到地址栏中。

3、然后按回车就可以查找到文件路径。

4、Ctrl+A全选后Ctrl+C复制。

5、打开Excel表格粘贴即可。

Answer 2

有一简单方法：
点击电脑左下角的开始，在运行处输入cmd，进入DOS界面，到你说的文件夹，如路径为D:\SS\Files，则输入以下命令，都是用回车结束：
D:
CD SS\Files
DIR

看到所有文件了，点击DOS窗口左上角，编辑，标记，用鼠标将这100个文件名字选中（一个白色方框，宽度为文件名最长的），再点击DOS窗口左上角，编辑，复制。退出DOS

再回到Excel中，粘贴。

然后用公式 =HYPERLINK()就可以了。

如果觉得不靠谱，用宏：
新建一Excel，放到你说的文件夹中，打开这个空白excel，同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub Find()
Application.ScreenUpdating = False
Range("A2").Select
Dim MyDir, Match As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1)
ChDir MyDir
Match = Dir$("")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Selection = Match
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=MyDir & Match
Selection.Offset(1, 0).Select
Match = Dir$
End If
Loop Until Len(Match) = 0
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub
直接按F5执行此宏，搞定。

Answer 3

A列输入文件夹内的文件名（包含路径）B1输入公式=HYPERLINK(A1)B1公式向下复制