エクセル アプリケーションの待機時間を設定したい

質問

VBAで
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(MyFileName)
のあとに、
xlApp.Visible = True
ココを通過するときに、3分くらい経ってから
「ソースアプリケーションがビジー状態のため、オブジェクトが応答しません。」
と表示される時があります。

このメッセージが表示されるまでの時間を設定したいのですが
そのようなＶＢＡコードはありますか？

回答No.1

tom04 · ベストアンサー

こんばんは！
ある処理を実行するコードの前に
＞Application.Wait Now() + TimeValue("0:03:00")
を追加してみてください。

※　画面上で砂時計状態で3分待つというのはかなり長く感じます。
一つの方法としてその間「処理中です」といったユーザーフォームを作成し
それを表示させておく手もあります。m(_ _)m

お礼

ありがとうございました。