重新映射Excel链接VBA

我有一个与其他文件有3000个链接的文件。此文件和链接文件将被移动到新位置

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

例如：

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

---

我将如何在中添加一个超链接？使用VBA，我如何访问超链接？

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

Sub FixHyperLinks()
    Dim hLink As Hyperlink

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

End Sub

---

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

Sub FixHyperLinks()
    Dim hLink As Hyperlink

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

End Sub

---

什么样的超链接<代码>插入>>超链接或

=Hyperlink（）

？什么类型的超链接<代码>插入>>超链接或

=Hyperlink（）

？