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"