Überprüfen Sie den externen Link-Status vor der Aktualisierung

Question

Ich verwende das folgende Stück, um mehrere Links in einer Excel-Arbeitsmappe zu aktualisieren. Derzeit jedoch, wenn einer der Links nicht funktioniert, kennzeichnet es einfach einen Fehler im Code.

ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources 

Wie kann ich folgendes tun:

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

Answer 1

Sie die Links lesen können die Workbook.LinkSources Eigenschaft verwenden, die eine Reihe von Link-Namen zurückgibt, und dann können Sie jeden Link einzeln aktualisiert werden, während ignorieren Fehler:

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