如何在VBA中运行包含$env:UserName的PowerShell命令？

你的问题出在PowerShell的字符串引号规则：PowerShell中，单引号包裹的字符串是字面量，里面的变量（比如$env:UserName）不会被解析；而你手动运行的命令用的是双引号，变量能正常展开。但修改后的VBA宏里，路径是用单引号包裹的，导致$env:UserName被当成了路径的一部分，而非变量。

解决方法一：修改PowerShell命令的引号类型 #

在VBA中把路径的单引号换成双引号，同时注意VBA里双引号需要用两个连续双引号转义：

Private Sub Macro()
    Dim ExecuteCommand As String
    ExecuteCommand = "PowerShell -Command ""& 'C:\Program Files\R\R-4.2.2\bin\Rscript.exe' """"C:\Users\$env:UserName\Cool Calculations.R"""""
    Shell ExecuteCommand
End Sub

解释：VBA里的""会被解析为单个"，最终传递给PowerShell的命令是：

& 'C:\Program Files\R\R-4.2.2\bin\Rscript.exe' "C:\Users\$env:UserName\Cool Calculations.R"

这样PowerShell就能正常解析双引号里的$env:UserName变量。

解决方法二：直接用VBA获取用户名（更简单可靠） #

跳过PowerShell变量，直接在VBA中用Environ("UserName")获取当前用户名，拼接成完整路径：

Private Sub Macro()
    Dim ExecuteCommand As String
    Dim userName As String
    userName = Environ("UserName")
    ExecuteCommand = "PowerShell -Command ""& 'C:\Program Files\R\R-4.2.2\bin\Rscript.exe' 'C:\Users\" & userName & "\Cool Calculations.R'"""
    Shell ExecuteCommand
End Sub

这种方法不需要依赖PowerShell的变量解析，避免了引号转义的麻烦，兼容性更好。

内容的提问来源于stack exchange，提问作者kyarudata