用于更新链接的Excel工作簿的文件路径的VBA

Sub UpdateLinkPath()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim linkPath As String
    
    ' 设置文件路径
    linkPath = "新的文件路径"
    
    ' 打开工作簿
    Set wb = Workbooks.Open("工作簿路径")
    
    ' 循环更新链接路径
    For Each ws In wb.Worksheets
        For Each link In ws.Hyperlinks
            If link.Type = xlLinkTypeExcelLinks Then
                link.Address = Replace(link.Address, "旧的文件路径", linkPath)
            End If
        Next link
    Next ws
    
    ' 保存并关闭工作簿
    wb.Save
    wb.Close
    
    ' 释放对象
    Set ws = Nothing
    Set wb = Nothing
    
    MsgBox "链接路径已更新。"
End Sub