创建包含大量超链接的甘特图

创建包含大量超链接的甘特图

我创建了一个甘特图来跟进一个项目。每个任务都有 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

相关内容