r - 在 Excel VBA 中运行 RScript 时出错

Question

我已经搜索了同一问题的几种解决方案，但我的代码仍然无法工作。确保我的文件路径中没有空格，并且仍然使用三重引号来确保。运行宏时出现“对象‘IWshShell3’的方法‘运行’失败”错误。我在这里可能缺少什么？

代码:

Sub RunRscript()
    Dim shell As Object
    Set shell = VBA.CreateObject("WScript.Shell")
    Dim waitTillComplete As Boolean: waitTillComplete = True
    Dim style As Integer: style = 1
    Dim errorCode As Integer
    Dim path As String
    path = "RScript ""G:\structureshouston\Kocian\hello.R"""
    errorCode = shell.Run(path, style, waitTillComplete)
End Sub

Answer 1

我认为您的报价水平不正确。 RScript 应加引号，而脚本的文件名则不应加引号。另外，我想确保在调用中包含完整的路径名。尝试:

path = """C:\Program Files\R\R-3.2.4revised\bin\RScript"" G:\structureshouston\Kocian\hello.R"

您可能需要根据您安装的版本更新 RScript 的路径。