Excel 2010查找并replace超链接

我有下面的代码，当replace超链接时，似乎不工作：

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:/// ，你也应该让你的新的链接（networking）驱动器的位置开始：

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

另外，我认为你的初始链接看起来很奇怪，因为当我创build一个链接在path中的所有斜杠是向后“\”： "File:///C:\Users\username\AppData\roaming"