重新映射Excel链接VBA

我有一个文件~3000链接到其他文件。 这个文件和链接的文件正在被移动到一个新的位置。

当我移动文件和Excel文件时，path自动得到更新，但是引入了一个新的文件夹，并且这个文件夹没有被添加到Excel的超链接中。

例：

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

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

Answer 1

您可以replace所有超链接的地址中的文件夹path

 Sub FixHyperLinks() Dim hLink As Hyperlink For Each hLink In Me.Hyperlinks hLink.Address = Replace(hLink.Address, "folder1/", "folder1/EXTRA_FOLDER/") Next End Sub