重新映射 Excel 链接 VBA

Question

我有一个文件，其中包含约 3000 个其他文件的链接。该文件与链接的文件一起被移动到新位置。

当我移动文件和excel文件时，路径自动更新，但是引入了一个新文件夹，并且该文件夹没有添加到excel的超链接中。

例子：

Excel link: folder1/folder2/folder3/file.txt
Actual path: folder1/EXTRA_FOLDER/folder2/folder3/file.txt

我该如何添加该超链接？使用VBA，我如何访问超链接？

Answer 1

您只需替换所有超链接地址中的文件夹路径即可

Sub FixHyperLinks()
    Dim hLink As Hyperlink

    For Each hLink In Me.Hyperlinks
        hLink.Address = Replace(hLink.Address, "folder1/", "folder1/EXTRA_FOLDER/")
    Next

End Sub