EXCEL批量修改超链接

Sub 修改超链接() Dim myhlink As Hyperlink Dim oldPart As String Dim newPart As String oldPart = "E:\超链接文件" '原来的超链接部分 newPart = "D:\新文件" '新的超链接部分 For Each myhlink In activesheet.Hyperlinks If InStr(myhlink.Address, oldPart) > 0 Then myhlink.Address = VBA.Replace(myhlink.Address, oldPart, newPart) End If Next msgbox "完成" End Sub