更新前请检查外部链接状态

Question

我使用下面的片段来更新Excel工作簿上的多个链接。但是目前，如果其中一个链接不工作，它只是在代码中标记一个错误。

ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources

我该怎么做呢?

'Pseudocode
If link is valid Then
    Update
Else
    Go to next link
End If

Answer 1

您可以使用工作簿读取链接。LinkSources属性，它返回一个链接名称数组，然后您可以单独更新每个链接，同时忽略错误:

Sub SafeUpdateLink(LinkName As String)
    On Error Resume Next
    ActiveWorkbook.UpdateLink Name:=LinkName
End Sub
Sub UpdateAllLinks
    Dim x As Variant
    For Each x In ActiveWorkbook.LinkSources
        SafeUpdateLink x
    Next
End Sub