Excel 2010查找和替换超链接

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

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中用不正确的方式执行

旧链接以File:///开头，您还应该让指向networkdrive位置的新链接以该文件开头：

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

---

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

很抱歉这么晚才回复，但问题已经解决，我甚至不知道如何诚实。它只是在另一台计算机上工作，也许这正是你所说的，我可能用错了斜杠。正如你在问题帖子中看到的，它既缺少文件：///也不是到处都有正确的斜杠。很好，它对你有用。