前提
ExcelのVBAでバッチを呼び出し、
その処理結果をメッセージボックスと画面に表示させるシステムを作成しています。
バッチ実行中は実行中画面を表示し、その時にユーザが画面入力できないように
Application.Interactive = Falseを追記したところ、メッセージボックス表示前にExcelから直残まで開いていたウィンドウ(エクスプローラやchromeなど)へ勝手に切り替わる現象が発生するようになりました。
実現したいこと
Application.Interactive = False 時に、メッセージボックスを表示するとき、アクティブウィンドウが勝手に切り替わらないようにしたい。
発生している問題・エラーメッセージ
別ウィンドウを開き、Alt+TabでExcelへ戻った直後に起きやすい。
該当のソースコード
VBA
1Sub TEST() 2 3 Application.Interactive = False 4 5'実行中画面へ遷移 6 Workbooks("TEST.xlsm").Activate 7 Worksheets("RUNNING").Activate 8 9 Application.ScreenUpdating = False 10 11'接続確認バッチ(ping)を起動 12 TaskID = Shell("c:\test\ping.bat", 2) 13 hProc = OpenProcess(PROCESS_ALL_ACCESS, False, TaskID) 14 If OpenProcess(PROCESS_ALL_ACCESS, False, TaskID) <> vbNull Then 15 Call WaitForSingleObject(hProc, INFINITE) 16 CloseHandle hProc 17 End If 18 19'接続できない場合、エラー画面へ遷移 20 FILECHK = Dir("c:\test\PINGERR.txt", 0) 21 DoEvents 22 If FILECHK = "PINGERR.txt" Then 23 Workbooks("TEST.xlsm").Activate 24 Worksheets("ERROR").Activate 25 MsgBox "ERROR!!" '←ここで切り替わらないようにしたいです。 26 DoEvents 27 Application.ScreenUpdating = True 28 Application.Interactive = True 29 End 30 Else 31 MsgBox "Nomarl End!" '←ここで切り替わらないようにしたいです。 32 End If 33 34'接続できた場合、OK画面へ遷移 35 Workbooks("TEST.xlsm").Activate 36 Worksheets("OK").Activate 37 38 Application.ScreenUpdating = True 39 Application.Interactive = True 40 41 42End Sub 43
試したこと
1.Application.Interactive = Falseをコメント化。
2.「DoEvents」をApplication.Interactive = False、TrueやMsgBox "ERROR!!"の前に入れる。
3.メッセージボックス表示前に「sleep」で待ち時間を入れる。
1のみ効果がありましたが、ユーザが操作できる状態になってしまうため、他の方法を探しています。
入力や画面遷移の制御を行いつつ、アクティブウィンドウが切り替わらないようにするにはどうしたらいいでしょうか。解決策をご存じの方いらっしゃいましたら、ご教授いただけると嬉しいです。
補足情報(FW/ツールのバージョンなど)
環境は、
Windows10のExcel2019を使用しています。
回答1件
あなたの回答
tips
プレビュー