从 Access 运行外部脚本

Question

我希望我的 Access 应用程序在用户单击按钮后运行外部程序（在本例中为 R 脚本）。我使用此代码：

Dim RetVal
RetVal = Shell("""C:\Program Files\R\R-2.10.1\bin\R.exe"" CMD BATCH --no-environ --silent --no-restore --no-save ""c:\test.R"" ""c:\test-result.txt""", vbHide)
MsgBox RetVal

这工作正常，但在我的脚本执行时 VBA 代码继续运行。如何让 Access 等待脚本完成？有没有人建议如何将脚本的错误消息返回给 Access？

Answer 1

@Remou 链接到的 OpenProcess 和 WaitForSingleObject 组合可能是您这样做的最佳选择。你应该看看this，这是一个很好的shell模块，等待。

要从脚本返回消息，您可以使用redirecting the scripts input and output。这不适合胆小的人。作为替代方案，我会redirect the output of the script to a text file，然后在它退出后读入该文件。