如何使用Excel VBA仅更新特定工作表中的链接，而不更新整个工作簿中的链接？

Sub UpdateSpecificSheetLinks()
    Dim ws As Worksheet
    Dim link As Variant
    
    ' 设置要更新链接的工作表名称
    Dim sheetName As String
    sheetName = "Sheet1"
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 检查工作表名称是否匹配
        If ws.Name = sheetName Then
            ' 遍历工作表中的链接
            For Each link In ws.LinkSources(xlExcelLinks)
                ' 更新链接
                ws.UpdateLink link, xlExcelLinks
            Next link
        End If
    Next ws
End Sub