質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.38%
Windows 10

Windows 10は、マイクロソフト社がリリースしたOSです。Modern UIを標準画面にした8.1から、10では再びデスクトップ主体に戻され、UIも変更されています。PCやスマホ、タブレットなど様々なデバイスに幅広く対応していることが特徴です。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

同期

複数のディレクトリに存在するファイルを更新した場合に、すべてのファイルにも更新が行われる事、又は、同じ記憶領域に同時にアクセスして内容の整合性が失われてしまう事をを防ぐ制御などを同期と呼びます。

Q&A

解決済

1回答

4840閲覧

【ExcelVBA】 GetObject("winmgmts:").ExecQueryで取得したプロセスIDの処理を終了するまでに待機させる方法をお聞かせください

milton_rb4life

総合スコア28

Windows 10

Windows 10は、マイクロソフト社がリリースしたOSです。Modern UIを標準画面にした8.1から、10では再びデスクトップ主体に戻され、UIも変更されています。PCやスマホ、タブレットなど様々なデバイスに幅広く対応していることが特徴です。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

同期

複数のディレクトリに存在するファイルを更新した場合に、すべてのファイルにも更新が行われる事、又は、同じ記憶領域に同時にアクセスして内容の整合性が失われてしまう事をを防ぐ制御などを同期と呼びます。

0グッド

0クリップ

投稿2021/11/22 15:26

編集2021/11/23 08:45

ご覧いただきありがとうございます。
ExcelVBAのプロセス制御の件でわからないことがありますので質問させていただきます。
ぜひともアドバイスをいただければと思います。

現状と実現したいこと

Windows10-Pro-64bitで、ExcelVBAとBATファイルを連携させたものを組み込んでおります。

(Teratailに投稿して差し支えないように簡素にアレンジしました)
現状と目的について、下図で説明させていただきます。

=======ご指摘による補足
BATファイルは、他チームが開発したもので改変できないものとします。

イメージ説明

発生している問題

GetObject("winmgmts:").ExecQueryで、いきなりプロセスID(cmd.exe)を取得するのが、正当なやり方かどうかが見えてこないですが。
取得したプロセスID(cmd.exe)が、終了するまで待機させる方法が見つからないのが問題点です。

該当のソースコード

★hoge.xlsm (VBA本体)

VBA

1Sub ボタン1_Click() 2 3 Dim wsh As Object 4 Set wsh = CreateObject("Wscript.Shell") 5 Dim retn As Long 6 7 'ここでhoge1.batをRun(cmd.exe)で起動。(hoge2.batを呼び出し後すぐに消失) 8 retn = wsh.Run("C:\hoge1.bat", 1, True) 9 10 11 Dim objWk As Object 12 Dim objXlsProc As Object 13 14 'hoge1.batから自動的に呼び出されたhoge2.bat(cmd.exe)のプロセスIDを取得したい 15 Set objWk = GetObject("winmgmts:").ExecQuery("SELECT Handle FROM Win32_Process WHERE Name = 'cmd.exe'") 16 For Each objXlsProc In objWk 17 Debug.Print objXlsProc.Handle 18 19 20 Next 21 22'''''''''[ここでのTODO] 23'''''''''objXlsProc.HandleでプロセスIDを取得して、このプロセスが 24''''''''''処理終了するまでここのタイミングでWAITさせたいのが目的です。 25 26End Sub

★hoge1.bat

BAT

1@echo off 2TIMEOUT 5 3START C:\hoge2.bat

★hoge2.bat

BAT

1TIMEOUT 10 2echo "End"

参考

(1)https://okwave.jp/qa/q655810.html
(2)https://teratail.com/questions/36610
(3)https://www.moug.net/tech/exvba/0150034.html

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

hoge2.batに手を入れられるのなら、

CMD

1TIMEOUT 10 2echo "End" 3waitfor /si hogehoge

にすれば、Win32_Processを調べるなど不要で、単に、

VBA

1xxx = wsh.Run("waitfor hogehoge", 0, True)

を実行すれば、waitfor /si hogehogeが実行されるまで待ちます。

ただし、順番が前後すると無限に待つことになってしまいますが、hoge1.bathoge2.batを起動するまで時間がかかるので、すぐに実行しておけば大丈夫かと。

#追記
一定時間ごとに実行中かどうか調べる。

VBScript

1Do While True 2 running = False 3 For Each proc In GetObject("winmgmts:").ExecQuery("select * from Win32_Process where Name='cmd.exe'") 4 If Instr(proc.CommandLine,"hoge2.bat") Then running = True '大文字小文字に注意 5 Next 6 If Not Running Then Exit Do 7 数秒待つ 'VBAで待つ方法はいろいろあるので、どれか適当に 8Loop

投稿2021/11/22 16:41

編集2021/11/26 14:51
otn

総合スコア85684

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

milton_rb4life

2021/11/23 08:46

ご指摘とご提案、ありがとうございます。 このBATファイルですが、他チームが開発したもので改変できないのが問題となっている根本となります。 本当に申し訳ございません。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.38%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問