Question

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

ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources

如何执行以下操作：

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

Answer 1

您可以使用Workbook.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

更新前检查外部链接状态

1 个答案: