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

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

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

No.1 ベストアンサー 回答者： tom04 回答日時： 2013/06/05 20:23

こんばんは！

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

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

この回答へのお礼

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

お礼日時：2013/06/17 21:34