Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9262 / 76732 ←次へ | 前へ→

【73033】起動したアプリケーションが処理終了するまで次のステップに進まずに待つ
質問  かな  - 12/10/26(金) 9:24 -

引用なし
パスワード
   エクセルからMACファイルを起動させるマクロを作成しました。

そこで、マクロファイルを起動させてからのマクロファイルのプログラム実行時間が、10秒くらいかかります。

その処理が終わったら、またVBAのコードに戻り、次の処理へ移りたいのですが、
起動したら、すぐに他アプリケーションの処理が完了せずに、
次のコードへと進んでしまいます。

どうしたら、他アプリケーションの処理実行が終了するまで待つことができるのでしょうか?

どうかご教授お願いします。

現在のソース

Sub マクロ起動()

Const vbHide = 0       'ウィンドウを非表示
Const vbNormalFocus = 1   '通常のウィンドウ、かつ最前面のウィンドウ
Const vbMinimizedFocus = 2  '最小化、かつ最前面のウィンドウ
Const vbMaximizedFocus = 3  '最大化、かつ最前面のウィンドウ
Const vbNormalNoFocus = 4  '通常のウィンドウ、ただし、最前面にはならない
Const vbMinimizedNoFocus = 6 '最小化、ただし、最前面にはならない

Dim objWShell

Set objWShell = CreateObject("WScript.Shell")

objWShell.Run "rundll32.exe url.dll" & _
      ",FileProtocolHandler " & ThisWorkbook.Path & "\TEST.mac", vbHide, True

↑起動させてから、処理を行うのに少々時間がかかる

Set objWShell = Nothing

MsgBox "完了" ←他アプリケーションの処理が終わる前に、メッセージが先に出てしまう。
End Sub

1 hits

【73033】起動したアプリケーションが処理終了するまで次のステップに進まずに待つ かな 12/10/26(金) 9:24 質問
【73036】Re:起動したアプリケーションが処理終了す... ichinose 12/10/28(日) 9:30 発言
【73037】Re:起動したアプリケーションが処理終了す... かな 12/10/29(月) 14:10 質問
【73039】Re:起動したアプリケーションが処理終了す... ichinose 12/10/29(月) 18:21 発言
【73041】Re:起動したアプリケーションが処理終了す... H. C. Shinopy 12/10/30(火) 20:32 発言
【73092】Re:起動したアプリケーションが処理終了す... かな 12/11/8(木) 22:05 発言
【73091】Re:起動したアプリケーションが処理終了す... かな 12/11/8(木) 21:59 発言

9262 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free