如何从 Excel 自动超链接到文件夹

如何从 Excel 自动超链接到文件夹

我有 500 个文件夹,它们具有特定的名称字符串,例如Aseem-tb-rd-001,,Taj-tb-rd-006等等。

每个文件夹都有两个子文件夹,具体名称为InOut

现在我有一个 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

相关内容