Excel ワークブックの処理負荷を自動化する VBScript を作成しました。
これらのワークブックの一部では、開いたときに MsgBox がトリガーされます。このメッセージ ボックスは自動化を中断しています。
VBScript でこの MsgBox をリッスンし、ポップアップしたときに [OK] をクリックする方法はありますか?
Excel ワークブックの処理負荷を自動化する VBScript を作成しました。
これらのワークブックの一部では、開いたときに MsgBox がトリガーされます。このメッセージ ボックスは自動化を中断しています。
VBScript でこの MsgBox をリッスンし、ポップアップしたときに [OK] をクリックする方法はありますか?
このラッパーを使用してみてください:
Application.DisplayAlerts = False
Application.Workbooks.Open ([your code])
Application.DisplayAlerts = True
これにより、互換性の問題など、開く際の警告が抑制されます。
アップデート:
MsgBox がワークブック コードから生成される場合は、これを使用してみてください。
Application.AutomationSecurity = msoAutomationSecurityForceDisable
遅延バインディングが使用されている場合、これは機能します。
Application.AutomationSecurity = 3