我创建了一个甘特图来跟进一个项目。每个任务都有 50 到 100 个外部文件(word、excel、PDF)。我需要工作簿中每个文件的链接。在单独的单元格或列表框中单独加载每个文件需要几个小时。
有没有办法将多个文件拖放到列表框或组合框中?或者还有其他方法可以一次性导入所有文件?任何帮助我都非常感谢!
答案1
在包含 50 个外部文件的文件夹中,创建一个批处理文件,例如:
dir/s/b *.doc *.pdf *.xls* > files.txt
运行批处理文件以获取文档列表。将此列表粘贴到 excel 中。每行最终都会出现在不同的行中。根据需要进行清理。
一旦所有文件名都在列表中,并且具有完整路径正确,请选择第一个单元格,然后运行此宏以创建名称链接:
Sub Macro2()
Do While (Selection.Value <> "")
Path = Selection.Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Path, TextToDisplay:=Path
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
End Sub