从 Excel 宏调用 PowerShell 脚本

Question

我正在尝试从 Excel 中的宏调用 PowerShell 脚本。

我已经看到了一些例子：

retval = Shell("powershell ""C:\MyTest.ps1""", 1)

但是，当我尝试使用它时：

Sub Connect_01()  
  Dim x
  x = Shell(“powershell.exe ""\\corp\hdq\Path with spaces\PowerShell\Modules\macro01.ps1""", 1)  
End Sub  

我收到一个编译器错误： Syntax error
如果我删除赋值，我会在第一对引号处收到错误：
Expected: list separator or )"

由于我对 VBA 没有太多经验，对 Shell() 命令也没有经验，因此将不胜感激。

Answer 1

有第二种方法可以做到这一点。它使用Windows Script Host 的Exec方法。

它有一个很大的优势，它可以从您的外部 PowerShell、命令行或您拥有的任何其他命令行工具读回值。因此，您可以在 Excel 和 Powershell 之间进行双向通信。

Excel宏

Sub RunAndGetCmd()

    strCommand = "Powershell -File ""C:\path\to\My PS File.ps1"""
    Set WshShell = CreateObject("WScript.Shell")
    Set WshShellExec = WshShell.Exec(strCommand)
    strOutput = WshShellExec.StdOut.ReadAll
    Msgbox strOutput

End Sub

命令的其他工作示例可能是

• strCommand = "ping.exe 127.0.0.1"
• strCommand = "Powershell Echo Hello World"

我My PS File.ps1要演示的PowerShell 文件是

echo "Hello World"
$x = 1 + 1
echo $x

只要您echo的结果来自 PowerShell 文件或命令行工具，您就可以在 PowerShell 中执行所有复杂的操作。这意味着您写入StdOut（标准输出）。脚本完成后，Excel 读取所有值WshShellExec.StdOut.ReadAll

为确保带空格的路径从 Excel 正确传递到 PowerShell，请用四个双引号将路径括起来 "powershell -file ""C:\my path\"" "

结果在 Excel

注意事项

• 与 WscriptsRun方法相反，该Exec方法无法隐藏命令行窗口
• 当我使用Microsoft 的 MSDN 文章中所示的循环来检查外部命令行工具是否已完成时，我无法获得稳定的结果

使用的资源

• http://blogs.technet.com/b/heyscriptingguy/archive/2006/05/19/how-can-i-hide-the-command-window-when-executing-a-command-like-net-localgroup-管理员.aspx
• /sf/ask/424261351/

Answer 2

尝试使用这个而不是1. 不确定 1 来自哪里 -

Sub Connect_01()
Dim x as Variant
x = Shell("POWERSHELL.EXE " & "\\corp\hdq\Path with space\PowerShell\Modules\macro01.ps1", vbNormalFocus)
End Sub

或者将其全部排除 -

Sub Connect_01()
Dim x
x = Shell("POWERSHELL.EXE " & "\\corp\hdq\Path with space\PowerShell\Modules\macro01.ps1")
End Sub