excel vbaから実行するexe実行の黒い画面の非表示

下記はすでに開いているpdf,word,pptをアプリケーション自体を終了する作業をエクセルのVBAから実行しているものです。

Sub ファイルを閉じる()

Set objShell = CreateObject("WScript.Shell")

Set objExec = objShell.Exec("taskkill.exe /F /IM AcroRd32.exe")
Set objExec = objShell.Exec("taskkill.exe /F /IM WINWORD.exe")
Set objExec = objShell.Exec("taskkill.exe /F /IM POWERPNT.exe")

End Sub

このvbaを実行すると、exe実行の黒い画面が出てくるのですが、黒い画面が全くでないようにして処理がしたいです。ご教授いただけたらありがたいです。

No.2 ベストアンサー 回答者： artoo 回答日時： 2021/01/13 02:45

execでなくrunならウィンドウ非表示に出来ます。

objShell.Run "taskkill.exe /F /IM AcroRd32.exe", 0

この回答へのお礼

出来ました！助かりました。ありがとうございます。

お礼日時：2021/01/13 11:49

No.1 回答者： JavaScript勉強中 回答日時： 2021/01/13 00:29

taskkill.exeはもとはコマンドプロンプトで利用するものなので、そういう仕様らしいです。

代替手段はWinAPIを利用するなどですかね。

この回答へのお礼

参考にさせて頂きます。ありがとうございます。

お礼日時：2021/01/13 11:49