excel - Excel 2010 查找和替换超链接

Question

我有以下代码在替换超链接时似乎不起作用：

Sub ReplacePartHyperlinkAddress()
Dim hLink As Hyperlink
Dim wSheet As Worksheet

For Each wSheet In Worksheets
    For Each hLink In wSheet.Hyperlinks
        hLink.Address = Replace(hLink.Address, "File:///C:\Users/username/AppData/roaming", "O:\Brisbane\Brisbane_Groups\Offices")
    Next hLink
Next wSheet
End Sub

有人可以帮我解决这个问题，我也可能试图在excel中以不正确的方式执行它。

Answer 1

旧链接以 开头File:///，您还应该让指向（网络）驱动器位置的新链接以以下开头：

hLink.Address = Replace(hLink.Address, "File:///C:\Users/username/AppData/roaming", _
        "File:///O:\Brisbane\Brisbane_Groups\Offices")

另外我认为您的初始链接看起来很奇怪，因为当我创建链接时，路径中的所有斜杠都是向后的“\”："File:///C:\Users\username\AppData\roaming"