通过VBA Excel执行PowerShell脚本

Question

VBA代码：

Sub RunAndGetCmd()
    strCommand = "Powershell -File ""C:\Users\Yosr\Desktop\FileCreation.ps1"""
    Set WshShell = CreateObject("WScript.Shell")
    Set WshShellExec = WshShell.Exec(strCommand)
    strOutput = WshShellExec.StdOut.ReadAll
    MsgBox strOutput
End Sub

我想从Excel VBA执行PowerShell脚本，但是每次 单击我在Excel中创建的按钮以执行PowerShell脚本，该按钮不起作用，并且出现Excel错误。 但是，当我单独运行powershell文件（与PowerShell一起运行）时，它可以工作。