リンク更新の警告を抑制する方法は？

多くのExcelファイルを開くスクリプトを記述しようとしています。私はプロンプトを受け取り続けます：

This workbook contains links to other data sources.

このメッセージが表示されないようにしたいので、自分のスクリプトがすべてのブックを自動的に実行できるようになりましたDon't Update。現在、私は以下を使用しています：

function getWorkbook(bkPath as string) as workbook

Application.EnableEvents=False
Application.DisplayAlerts=False
getWorkbook=Workbooks.Open(bkPath,updatelinks:=0,readonly:=false)

end function

ただし、メッセージはまだ表示されています。どうすれば抑制できますか？

編集：このメッセージは、リンクが壊れているワークブックに対して表示されるようです。falseにThis workbook contains one or more links that cannot be updated設定DisplayAlertsしたため、メッセージは表示されませんでした。ワークブックは、Windowsサーバー上のフォルダー内の同等のファイルにリンクされているため、一致するファイルがそのフォルダーから削除されると（ビジネスフローの一部として発生します）、リンクが壊れます。リンク切れ時の警告を抑制できますか？

また、Excel 2010を使用しています。

更新：

すべての詳細を要約して議論した後、私はオプションのチェックに2時間を費やしました。 i。ます。

準備

まず、VMWareを搭載したClean Win7 SP1 Ultimate x64仮想マシンにOffice 2010 x86のクリーンインストールを実行しました（これは日常のテストタスクの通常のルーチンなので、それらの多くを展開しています）。

次に、次のExcelオプションのみを変更しました（つまり、他のすべてのオプションはインストール後もそのままです）。

• Advanced > General > Ask to update automatic links チェック済み：

• Trust Center > Trust Center Settings... > External Content > Enable All... （ただし、データ接続に関連するものは、このケースではほとんど重要ではありません）：

前提条件

私は彼の更新された回答の提案C:\に従って正確にワークブックに準備し、配置しました@Siddharth Rout（あなたの便宜のために共有しました）：https : //www.dropbox.com/s/mv88vyc27eljqaq/Book1withLinkToBook2.xlsxリンクされた本は削除されました共有にリンクしているので、本は入手できません（確かに）。

手動で開く

上記の共有ファイルは、開くと（上記のExcelオプションがある場合）2つの警告を表示します-出現順に：

警告＃1

クリックした後、Update私はおそらく別のものを得ました：

警告＃2

ですから、私のテスト環境は今とほとんど同じになっていると思います OP）これまでのところ、私たちは最終的に

VBAオープニング

次に、すべての可能なオプションを段階的に試して、画像を明確にします。簡単にするために、関連するコード行のみを共有します（コードを含む完全なサンプルファイルは最後に共有されます）。

1.シンプルなApplication.Workbooks.Open

Application.Workbooks.Open Filename:="C:\Book1withLinkToBook2.xlsx"

驚くべきことではありません。これは、上記の手動による開封と同様に、両方の警告を生成します。

2. Application.DisplayAlerts = False

Application.DisplayAlerts = False
Application.Workbooks.Open Filename:="C:\Book1withLinkToBook2.xlsx"
Application.DisplayAlerts = True

このコードは、警告＃1で終わり、どちらのオプション（Update/ Don't Update）をクリックしても、警告は生成Application.DisplayAlerts = Falseされません。つまり、警告＃2が抑制されます。

3. Application.AskToUpdateLinks = False

Application.AskToUpdateLinks = False
Application.Workbooks.Open Filename:="C:\Book1withLinkToBook2.xlsx"
Application.AskToUpdateLinks = True

の反対でDisplayAlerts、このコードはWARNING＃2のみで終了します。つまりApplication.AskToUpdateLinks = False、WARNING＃1を抑制します。

4.二重誤り

Application.AskToUpdateLinks = False
Application.DisplayAlerts = False
Application.Workbooks.Open Filename:="C:\Book1withLinkToBook2.xlsx"
Application.DisplayAlerts = True
Application.AskToUpdateLinks = True

どうやら、このコードは両方の警告を抑制することになります。

5. UpdateLinks：= False

Application.Workbooks.Open Filename:="C:\Book1withLinkToBook2.xlsx", UpdateLinks:=False

最後に、この1行のソリューション（元はによって提案されました@brettdj）は、Double Falseと同じように機能します。警告は表示されません！

結論

適切なテストプラクティスと非常に重要な解決済みのケース（サードパーティにワークブックを送信しているときに毎日このような問題に直面する可能性があり、準備ができている）を除いて、さらに2つのことを学びます。

1. バージョンに関係なく、特にVBAソリューションの場合、Excelオプションは重要です。
2. すべてのトラブルには、簡潔で洗練された解決策があります。そのためのもう1つの証拠です！）

ソリューションに貢献してくれた皆さん、特に質問をしてくれたOPに感謝します。私の調査と完全に記述されたテスト手順が私だけでなく役立つことを願っています）

上記のコードサンプルを含むサンプルファイルは共有されています（多くの行は意図的にコメント化されています）：https : //www.dropbox.com/s/9bwu6pn8fcogby7/NoWarningsOpen.xlsm

元の回答（特定のオプションを使用してExcel 2007でテスト済み）：

このコードは私にとってはうまくいきます-でワイルドカードを使用して指定されたすべてのExcelファイルをループしますInputFolder：

Sub WorkbookOpening2007()

Dim InputFolder As String
Dim LoopFileNameExt As String

InputFolder = "D:\DOCUMENTS\" 'Trailing "\" is required!

LoopFileNameExt = Dir(InputFolder & "*.xls?")
Do While LoopFileNameExt <> ""

Application.DisplayAlerts = False
Application.Workbooks.Open (InputFolder & LoopFileNameExt)
Application.DisplayAlerts = True

LoopFileNameExt = Dir
Loop

End Sub

私は利用できない外部リンクのある本でそれを試しました-警告はありません。

サンプルファイル：https : //www.dropbox.com/s/9bwu6pn8fcogby7/NoWarningsOpen.xlsm

ExcelのVBAエディターを開き、これをイミディエイトウィンドウに入力します（スクリーンショットを参照）

Application.AskToUpdateLinks = False 

Excelを閉じて、ファイルを開きます。再度プロンプトが表示されることはありません。ブックを閉じるときに必ずリセットしてください。リセットしないと、他のブックでも機能しません。

ScreenShot：

編集する

コードに適用すると、コードは次のようになります

Function getWorkbook(bkPath As String) As Workbook
    Application.AskToUpdateLinks = False
    Set getWorkbook = Workbooks.Open(bkPath, False)
    Application.AskToUpdateLinks = True
End Function

ファローアップ

Sigil、以下のコードは、リンクが壊れているファイルでも機能します。これが私のテストコードです。

試験条件

1. 2つの新しいファイルを作成します。それらに名前を付けSample1.xlsxてSample2.xlsx保存しますC:\
2. のセルA1にSample1.xlsx次の数式を入力してください='C:\[Sample2.xlsx]Sheet1'!$A$1
3. 両方のファイルを保存して閉じます
4. Sample2.xlsxを削除します!!!
5. 新しいワークブックを開き、モジュールがこのコードを貼り付けて実行しSampleます。プロンプトが表示されないことがわかります。

コード

Option Explicit

Sub Sample()
    getWorkbook "c:\Sample1.xlsx"
End Sub

Function getWorkbook(bkPath As String) As Workbook
    Application.AskToUpdateLinks = False
    Set getWorkbook = Workbooks.Open(bkPath, False)
    Application.AskToUpdateLinks = True
End Function

Excel 2016ワークブック/ファイルを作成してから名前を変更したときに同様の問題が発生しましたが、どういうわけか古いワークブック名​​が保持されていました。たくさんググった後...まあ、そこには最終的な答えは見つかりませんでした...

データ->リンクの編集->スタートアッププロンプト（下部）に移動し、最適なオプションを選択します。

（VBAを介してプログラムで開くのではなく）Excelで手動でブックを開いたときに、別のブックへのリンクを更新するかどうかを尋ねるプロンプトを抑制したいと思いました。私が含めてみました：マクロのApplication.AskToUpdateLinks = False最初の行として、Auto_Open()それはうまくいきませんでした。しかし、代わりにモジュールのWorkbook_Open()関数にそれを置くとThisWorkbook、それは見事に機能します-ダイアログは抑制されますが、更新はバックグラウンドで静かに行われます。

 Private Sub Workbook_Open()
    ' Suppress dialog & update automatically without asking
    Application.AskToUpdateLinks = False
End Sub

（コメントを追加するのに十分な担当者ポイントはありませんが、ここで回答を明確にしたいと思います）

Application.AskToUpdateLinks = Falseはおそらく望んでいるものではありません。

Falseに設定すると、MS Excel はリンクを自動的に更新しようとしますが、事前にユーザーにプロンプ​​トを表示することはなく、直感に反しています。

リンクを更新せずにファイルを開く場合の正しい解決策は次のとおりです。

Workbook.Open（UpdateLinks：= 0）

関連リンク： AskToUpdateLinks = FalseとUpdateLinks：= 0の違い

少なくともこの仕事を処理できる一時的な解決策を見つけました。「リンクの更新」ウィンドウが表示されるのを待ち、「更新しない」ボタンをクリックする短いAutoItスクリプトを作成しました。コードは次のとおりです。

while 1
if winexists("Microsoft Excel","This workbook contains links to other data sources.") Then
   controlclick("Microsoft Excel","This workbook contains links to other data sources.",2)
EndIf
WEnd

これまでのところ、これは機能しているようです。ただし、これを完全にVBAにするソリューションを見つけて、スタンドアロンアプリケーションにすることができます。

この質問（またはその一部）を解決するためにいくつかの追加の入力を提供したいと思います。

これはExcel、別のファイルを開くときに機能します。Peter L.氏からのコードの行で、変更には以下を使用します。

Application.Workbooks.Open Filename:="C:\Book1withLinkToBook2.xlsx", UpdateLinks:=3

これはにありMSDSます。結果は、警告なしですべて（はい、すべて）を更新するだけです。これは、マクロを記録する場合にも確認できます。

でMSDS、それはこれを参照MS EXCEL 2010して2013。MS EXCEL 2016これもカバーされていると思います。

私はMS EXCEL 2013、このトピックとほとんど同じ状況にあります。だから私は常に更新リンクのプロンプトで行き詰まるイベントコードを含むファイル（それを呼び出すA）を持っています。このファイルに接続されている別のファイル（と呼びます）を持っています。ピボットテーブルでは、データモデルをロードできるようにファイルを開く必要があります。ファイルをバックグラウンドでサイレントで開きたいので、上記で書いた行をで使用し、読み込み時間が長くなることを除いて、問題や警告なしにファイルからファイルを開き、完全に更新します。Workbook_OpenBAAWindows("A.xlsx").visible = falseAB