vba call shell powershell script

用VBA调用PowerShell脚本，可以使用Shell函数。Shell函数可以启动具有指定命令行的应用程序，并等待该应用程序完成执行。

以下是一个示例脚本，可以通过VBA来调用PowerShell脚本：

Sub RunPowerShellScript()
    Dim wsh As Object
    Dim oExec As Object
    Set wsh = VBA.CreateObject("WScript.Shell")
    Set oExec = wsh.Exec("powershell -ExecutionPolicy bypass -File ""C:\path\to\your\script.ps1""")
    Do While oExec.Status = 0
        VBA.DoEvents
    MsgBox "PowerShell Script has finished executing."
End Sub
WScript.Shell是Windows Script Host中的对象，可以在VBA中通过创建对象来调用其方法。
Exec方法可以启动PowerShell，并指定要运行的脚本文件。
Do While循环用于等待PowerShell脚本执行结束。
在脚本执行结束后，弹出一个消息框以提示用户。
请注意修改"C:\path\to\your\script.ps1"，将其修改为你要运行的PowerShell脚本的路径。另外，你还可以在脚本中使用参数来向PowerShell脚本传递参数，以执行不同的操作。