VBAでWscript実行時のコンソールを非表示にしたい

Question

VBAでPHPを実行するプログラムを記載しました。
そこで、無事VBAから、phpを実行することはできるのですが
いちいちコンソールが開いてしまうため、それを非表示にしたいです。
どのように対応をすればいいでしょうか？

よろしくお願いいたします。

Public Sub testcode()
    
    'PHPコマンド実行パス
    Dim Path As String
    Path = ThisWorkbook.Path & "\system\php.exe " & ThisWorkbook.Path & "\system\test.php"
    
    'WSH生成
    Dim wsh As Object
    Set wsh = CreateObject("WScript.shell")
    
    'コマンド実行
    Dim cmd As Object
    Set cmd = wsh.exec("%ComSpec% /c　" & Path)
    cmd.StdIn.WriteLine source
    
    Do While cmd.Status = 0
        DoEvents
    Loop
    
    '結果抽出
    Result = cmd.StdOut.ReadAll
    
    Cells(1.1).Value = Result

End Sub

Answer 1

使ったことありませんが、次のものを試してみてください。
WScript.ShellのExec()で、コンソールアプリを非表示で実行するラッパー

Comments

[kashim]

すみません、このラッパーはどうやってVBAで実装すればいいのでしょうか・・・

[Zuishin]

VBA で実装する必要はありません。
VBA から Exec() でこのラッパーを呼び出すとラッパーが Run() で目的のコマンドを実行してくれます。
コマンド呼び出しをラップするからラッパーなのです。

[Zuishin]

見ての通り VBS なので拡張子 .vbs のファイルにコピペして Shift JIS で保存してください。

[Zuishin]

使い方と使用例は「その２」に書いてあります。