VBAからPowerShellのコマンドを実行するサンプルコード（戻り値を取得するパターン）

Option Explicit

Function execPowerShell(psCmd As String)
    
    Dim objWSH As Object
    Set objWSH = CreateObject("WScript.Shell")
    
    
    ' PowerShell実行
    Dim objwExec As WshExec
    Set objwExec = objWSH.Exec("%ComSpec% /c " & psCmd)
    
    ' 実行完了待機
    Do While objwExec.Status = 0
        DoEvents
    Loop
    
    ' 実行結果の返却
    execPowerShell = objwExec.StdOut.ReadAll

End Function
Sub test1() ' PowerShellを実行する（戻り値あり）
    
    
    'Get-Dateを実行し、結果を表示する
    Dim result As String
    result = execPowerShell("powershell Get-Date")
    MsgBox result
    
End Sub