【VBA】PowerShellファイルを同期実行する

ここではVBAから
　・PowerShellファイルを
　・同期実行する
方法を記載します！

PowerShellファイルの実行結果も
取得できます！

PowerShellのコード
VBAのコード
実行結果
参考①
参考②
参考③
参考④
参考⑤
参考⑥
参考⑦

PowerShellのコード

ここでは例として、
　・「PowerShellからのメッセージ出力です！」というメッセージを出力する
　・「test.ps1」を作成
します。

$ws = new-object -comobject wscript.shell
$result = $ws.popup("PowerShellからのメッセージ出力です！")

# 正常終了の場合、戻り値として「0」を返す
exit 0

# 異常終了の場合、戻り値として「1」を返す
# exit 1

「exit [数値]」で戻り値(実行結果)を指定します(5、8行目)。

VBAのコード

ここでは例として、
　・上記で作成したPowerShellのファイル「test.ps1」を
　・同期実行
します。
※ここでは先程作成したPowerShellのファイル「test.ps1」をデスクトップ配下に配置しています。

'変数の宣言を必須
Option Explicit

Sub execPsFile()
    
    Dim psFile As String
    Dim execCommand As String
    Dim wsh As Object
    Dim result As Integer
    
    'PowerShellファイルのパスを指定
    psFile = "C:\Users\user\Desktop\test.ps1"
    
    Set wsh = CreateObject("WScript.Shell")
    
    '実行するコマンドを組み立て
    execCommand = "powershell -NoProfile -ExecutionPolicy Unrestricted " & psFile
    
    'PowerShellを実行
    result = wsh.Run(command:=execCommand, WindowStyle:=0, WaitOnReturn:=True)
    
    If (result = 0) Then
        MsgBox ("Power Shellファイルは正常終了しました。")
    Else
        MsgBox ("Power Shellファイルは異常終了しました。")
    End If
    
    '後片付け
    Set wsh = Nothing
    
End Sub

「PowerShellファイルのパス」を指定します(12行目)。

「Run」メソッドの引数に「WindowStyle」に「0」を指定することで、PowerShell画面を非表示にできます(20行目)。
※「1(規定値)」を指定すると表示になります。

「Run」メソッドの引数「WaitOnReturn」に「True」を指定することで、同期実行になります(20行目)。
※「False(規定値)」を指定すると非同期実行になります。

ここでいう「同期実行」とは、
　・PowerShellファイルの処理完了後にVBAへ制御が返ってくるように実行
という意味です。
※PowerShellの処理が完了するまでは、VBAの処理は停止して先に進みません。

戻り値(実行結果)」を判定します(22～26行目)。