VBA 在更改外部链接时运行速度非常慢

使用VBA在更改外部链接时，可能会遇到运行速度非常慢的问题。这是因为外部链接通常涉及到网络通信和数据传输，而这些操作可能会受到网络状况、数据量大小以及服务器响应速度等因素的影响。在处理大量外部链接时，这种延迟可能会导致整个程序执行时间大大增加。

vba
Sub ChangeExternalLinks()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim link As Variant
    
    Set wb = ThisWorkbook
    Set ws = wb.Sheets("Sheet1")
    
    ' 禁用自动计算，以提高执行速度
    Application.Calculation = xlCalculationManual
    
    ' 遍历所有的链接
    For Each link In ws.LinkSources(Type:=xlLinkTypeExcelLinks)
        
        ' 检查链接类型是否为外部链接
        If InStr(link, "http") > 0 Then
        
            ' 使用异步请求更改链接
            With CreateObject("MSXML2.XMLHTTP")
                .Open "GET", link, True
                .send
            End With
            
            ' 继续执行后续代码
            
        End If
        
    Next link
    
    ' 启用自动计算
    Application.Calculation = xlCalculationAutomatic
    
End Sub