我有 500 个文件夹,它们具有特定的名称字符串,例如Aseem-tb-rd-001
,,Taj-tb-rd-006
等等。
每个文件夹都有两个子文件夹,具体名称为In
和Out
。
现在我有一个 Excel 文件,其中包含名为In
和 的工作表Out
,这两个工作表都有各自的名称字符串。我需要 Excel 自动获取文件夹并添加超链接。
例如,如果工作H3
表中的单元格In
有名称Taj-tb-rd-006
,我希望超链接链接到文件夹Taj-tb-rd-006\In
,如果工作H8
表中的单元格Out
有名称Taj-tb-rd-006
,我希望超链接链接到文件夹Taj-tb-rd-006\Out
。
用什么方法可以做到这一点?
答案1
你可以使用公式来做到这一点。我会从以下公式开始:
=HYPERLINK(H3&"\out")
编辑 抱歉,我看错了问题。答案的另一半是,你需要一些像这样的 VBA 代码,修改自这个答案因此:
Sub LoopThroughFiles()
Dim MyObj As Object, MySource As Object, file As Variant, i As Integer
file = Dir("D:\My Folder\", vbDirectory)
While (file <> "")
i = i + 1
ActiveSheet.Cells(i, 1) = file
file = Dir
Wend
End Sub