如何在EXCEL表格中批量插入PDF文件的链接

Question

表格因为被替换了所以以前的链接全部无效了，很是头疼，我把所有订单扫描件放在一个文件夹里面的，如何批量导入直接链接到每个供应商名字那边，我的所有订单的扫描件都是有流水号编号的

我I还百度了一下别人教的办法但是链接还是无效，跪求大侠有具体的操作啊

Answer 1

在空白表中的A1单元格放入文件路径,然后运行本宏即可
Private Sub 文件夹操作()
Application.ScreenUpdating = False
Folderspec = [a1].Value
Select Case WorksheetFunction.CountA(ActiveSheet.UsedRange)
Case 1:
i = 1
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set fs = fs.GetFolder(Folderspec)
Set fs = fs.SubFolders
For Each f In fs
i = i + 1: j = 1: Cells(i, 1) = f.Name
myName = Dir(Folderspec & "\" & f.Name & "\*")
While myName <> ""
j = j + 1: Cells(i, j) = myName
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, j), Address:=Folderspec & "\" & f.Name & "\" & myName
myName = Dir()
Wend
Next
myName = Dir(Folderspec & "\*") '文件
While myName <> ""
i = i + 1: Cells(i, 1) = myName
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=Folderspec & "\" & myName
myName = Dir()
Wend
End Sub