如何在Excel工作簿中存储并运行PowerShell代码，解决执行时引号丢失问题

问题本质 #

你当前的写法直接将PowerShell代码拼接为命令行参数，命令行解析时会把双引号判定为参数边界直接移除，同时未处理VBA字符串转义、PowerShell命令行转义的两层转义规则，才会出现引号丢失的问题。

最优方案：使用-EncodedCommand参数传参 #

PowerShell提供的-EncodedCommand参数接受UTF-16LE编码的Base64字符串作为输入，所有特殊字符（包括引号、换行、特殊符号）都不会被命令行解析破坏，无需手动处理任何转义，是最稳妥的解决方案。

实现步骤 #

1. 先在VBA中添加字符串转Base64的工具函数：

Function StrToPSBase64(ByVal text As String) As String
    Dim stream As Object
    Set stream = CreateObject("ADODB.Stream")
    stream.Charset = "utf-16le"
    stream.Open
    stream.WriteText text
    stream.Position = 0
    stream.Type = 1
    StrToPSBase64 = Replace(Replace(stream.ReadText(-1, False), vbCr, ""), vbLf, "")
    stream.Close
    Set stream = Nothing
End Function

2. 修改命令构造逻辑：

strCommand = "PowerShell.exe -noexit -EncodedCommand " & StrToPSBase64(getScript()) & " " & host

替代方案：手动转义双引号 #

如果不想使用编码传参，可以对PowerShell代码中的双引号做两层转义，将代码内的每一个双引号替换为4个双引号即可：

Dim psCode As String
psCode = Replace(getScript(), """", """""")
strCommand = "PowerShell.exe -noexit """ & psCode & """ " & host

注意：该方案仅适用于代码中无换行、无其他命令行特殊字符（&、|、>等）的简单场景，复杂场景仍推荐使用编码传参方案。

内容的提问来源于stack exchange，提问作者Арсен Кул