■以下のような場合にリンクの更新確認のアラートを無視して(更新せず)ブックを開くコード
※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
■以下の様に、リンク先を参照しているファイルがあったとします。
■リンク先のファイルをリネームしてわざとリンク切れの状態が起こるようにします。
(ここではリンク先.xlsx →リンク先1.xlsx へ変更)
この状態で再度、リンク先ファイルを参照しているファイル(リンク切れテスト.xlsx)を開くとリンク切れを起こし、リンクの更新確認のアラートが表示されます。