☰

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

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 microsoft-excel-2007
如何从 Excel 自动超链接到文件夹

我有 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

相关内容