ray88’s diary

お仕事で困ったとき用の自分用の覚書

ExcelVBA リンクの更新を無視してブックを開く

■以下のような場合にリンクの更新確認のアラートを無視して(更新せず)ブックを開くコード
※Openメソッドの2番目の引数は「UpDateLinks」なのでここをFalseにすることでリンクを更新しない。

Sub openBook()
    Dim bookPath As String
    Dim wb As Workbook    
    bookPath = "C:\デスクトップ\テスト\リンク切れテスト.xlsx"    
    Set wb = Workbooks.Open(bookPath, False)    
End Sub

■以下の様に、リンク先を参照しているファイルがあったとします。
f:id:ray88:20200411103310p:plain
■リンク先のファイルをリネームしてわざとリンク切れの状態が起こるようにします。
(ここではリンク先.xlsx →リンク先1.xlsx へ変更)
f:id:ray88:20200411103420p:plain
この状態で再度、リンク先ファイルを参照しているファイル(リンク切れテスト.xlsx)を開くとリンク切れを起こし、リンクの更新確認のアラートが表示されます。
f:id:ray88:20200411103745p:plain

参考
Excel VBA を学ぶなら moug モーグ | 即効テクニック | ブックを開く(Openメソッド)