【问题标题】：Environment Variables not recognized when calling Run in WScript.Shell object在 WScript.Shell 对象中调用 Run 时无法识别环境变量
【发布时间】：2018-07-24 23:11:53
【问题描述】：

如果我在命令行中运行命令Rscript "C:/TEMP/test.R"，它会起作用，并且我的脚本会按预期运行。一旦我尝试在我的 VBA 代码中运行它，它就不会将 Rscript 识别为有效命令。

Dim shell_obj As Object
Set shell_obj = VBA.CreateObject("WScript.Shell")
Dim errorCode As Integer
errorCode = shell_obj.Run("Rscript ""C:/TEMP/test.R""", 1, True)

当我查看 WScript.Shell 使用的 PATH 变量时，我发现它不包含内部带有 Rscript 路径的系统变量。

Dim shell_obj As Object
Dim wshSystemEnv As Object
Set shell_obj = VBA.CreateObject("WScript.Shell")

' This one does not include the path to the Rscript'
Debug.Print shell_obj.ExpandEnvironmentStrings("%PATH%")
Set wshSystemEnv = shell_obj.Environment("SYSTEM")
' This one includes the path to the Rscript'
Debug.Print wshSystemEnv("PATH")

我可以强制 WScript.Shell 对象使用系统环境吗？或者至少使用它的变量？

命令：

VBA（版本 1）：

VBA（第 2 版）：

【问题讨论】：

在 VBA 中，只需使用 Environ("path")。不需要 WScript 或 RScript。
所以你的问题是系统没有自动检查rscript.exe所在的路径，对吗？你知道那个fie的正确位置是什么吗？（您确定了，我们可以将其添加到现有路径中。）
我在我的电脑里知道。但是代码可能会在其他人的机器上使用不同版本的 R（这会改变路径）。因此，放置修复路径并不能解决问题。
您没有提到涉及其他计算机。我现在很困惑：您的问题说您可以从命令提示符运行它，但不能从 VBA 运行它。第一步是让它在你的上面运行，即使路径现在是硬编码的。您的计算机上的rscript.exe 位于何处？一旦你在你的机器上运行了这个，我们就可以担心其他人......
根据我所做的研究，该文件的路径差异很大，因为R 包没有“标准”安装位置。我可以帮助编写代码以编程方式定位文件，但在脚本在 your 具有 known 路径的机器上正常运行之前，我不会打扰。

标签： vba shell

【解决方案1】：

编辑：见帖子底部。

希望你能在我的（冗长的）这方面找到一些用处...:-)

测试命令行准备情况

任何可以按原样从 Windows 命令行运行的命令 (including an RScript) 都可以也使用the VBA Shell function 或@987654323 运行@。

问题是，您的cmd 字符串没有准备好命令行。这可以通过点击 +R 并粘贴 cmd 字符串变量的内容来确认：

Rscript "**path**/test.R"

我目前没有安装rscript.exe，但我怀疑如果您尝试在运行窗口或命令行中手动运行命令，您会收到错误消息。如果它不在那里运行，它显然不会在 VBA Shell 中运行。

据我了解，双星号是您使用它的方式Java notation，R 中是same as a ^ caret character，用于计算指数。

引用环境变量

要在VBA 中返回Windows PATH environment variable，您可以使用VBA's Environ function。

要插入值环境变量inline at the command line，您可以用%percent% 符号将其包围，例如%path%

Windows 的`PATH` 环境变量

PATH 不返回单个文件夹。这是一个文件夹列表，Windows 应该检查它以找到一个尝试运行的可执行文件。

^{当在命令shell中输入命令或程序进行系统调用以执行程序时，系统首先搜索当前工作目录，然后搜索路径，从左到右检查每个目录，寻找与给定命令名匹配的可执行文件名。}

^{Windows 系统目录（通常为C:\WINDOWS\system32）通常是路径中的第一个目录，其后是许多（但不是全部）已安装软件包的目录。}

PATH (from a fresh install of Windows 7) 的默认值示例是：

%SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem

与 %path%, this includes%SystemRoot%` 一样，在 Windows 7 上默认为字符串：

C:\Windows

检查环境变量

您可以验证PATH 环境标签的值：

点击+R。
键入cmd 并按Enter。（应该会打开一个命令行窗口。）
输入或粘贴echo %path%，然后按Enter。

WindowPATH环境变量的内容会显示出来。

您还可以在 Windows 中检查环境变量：

并输入 env（搜索）
点击Edit the system environment variables。（有一个类似的选项“...for your account”，但完全不一样。）
点击

^{注意：虽然您在技术上可以更改此窗口中的PATH，我不建议这样做所以，尤其是PATH，因为它分为系统和用户文件夹，Windows 喜欢某些区域的某些文件夹，并且某些更改在重新启动之前不会生效，但其他更改会生效，等等等等等等，相信我：从命令行更容易做到。}

你的代码有什么问题？

因此，基于所有这些，您尝试运行的命令似乎是：

Rscript "C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem/test.R"

...这显然行不通。

获取或设置当前工作文件夹/目录

我只能推测你想要完成什么。

我怀疑您不打算返回整个 PATH 变量，而是只对当前工作文件夹感兴趣。

如果是这样，您根本不需要指定文件夹。 Shell 已经在“当前”文件夹中执行命令。

您可以使用VBA CurDir() function 来检查哪个directory or folder 是最新的，例如：

Debug.Print CurDir()

CurDir 的值可以用the ChDir statement 更改。

类似功能

请注意，CurDur() 命令经常与类似的函数混淆，例如：

Application.Path 返回 Excel 应用程序的路径，或者，
ActiveWorkbook.Path 返回活动工作簿的保存位置（如果未保存，则返回空字符串）。

可能的解决方案：_{^{（如何在VBA的当前路径中运行rScript）}}

如果您的R 脚本和rscript.exe 都在当前工作文件夹中，则只使用一行VBA 运行它：
```
Shell "rscript.exe test.R", vbNormalFocus
```
如果您需要 VBA 在恢复 VBA 之前等待完成 Shell 命令的执行，那么您可以只使用这一行：
```
CreateObject("WScript.Shell").Run "rscript.exe test.R", vbNormalFocus, True
```

在 WScript.Shell 对象中调用 Run 时无法识别环境变量

编辑：见帖子底部。

测试命令行准备情况

引用环境变量

Windows 的`PATH` 环境变量

检查环境变量

你的代码有什么问题？

获取或设置当前工作文件夹/目录

类似功能

可能的解决方案：_{^{（如何在VBA的当前路径中运行rScript）}}

更多信息：

您的代码有什么问题的另一个演示：

编辑：见帖子底部。

测试命令行准备情况

引用环境变量

Windows 的PATH 环境变量

检查环境变量

你的代码有什么问题？

获取或设置当前工作文件夹/目录

类似功能

可能的解决方案：（如何在VBA的当前路径中运行rScript）

更多信息：

您的代码有什么问题的另一个演示：

Windows 的`PATH` 环境变量

可能的解决方案：_{^{（如何在VBA的当前路径中运行rScript）}}