更新前に外部リンクの状態を確認してください

Question

私は以下の部分を使用してExcelブックの複数のリンクを更新しています。 現在のところ、リンクの1つが機能しない場合は、コード内のエラーにフラグを立てるだけです。

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