Excel中通过VBA运行R脚本报Automation Error错误如何解决

该报错-2147024894 (80070002)的核心原因是WScript.Shell调用时，系统无法找到你指定的RScript可执行文件或R脚本路径，按以下步骤排查修复即可：

• 补全RScript的绝对路径
  直接写RScript系统无法识别，需要填写你本地RScript.exe的完整安装路径，例如默认安装路径为C:\Program Files\R\R-你的版本号\bin\RScript.exe，可右键R桌面快捷方式查看实际安装位置替换。如果不想写全路径，也可以把R的bin目录添加到Windows系统环境变量的PATH中，重启Excel后生效。
• 处理路径中的空格与转义
  VBA字符串中如果要输出双引号，需要连续写两个双引号转义。如果路径包含空格，必须用双引号包裹，否则shell会把空格识别为参数分隔符，导致路径识别错误。
• 校验R脚本运行环境
  先在系统运行窗口（Win+R唤起）输入拼接好的完整命令，确认能正常运行R脚本后再写入VBA，避免脚本本身的问题导致报错。另外建议在R脚本开头添加setwd("C:/R_code/")固定工作目录，避免脚本内相对路径读写失败。

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 rPath As String, scriptPath As String, path As String
    ' 替换为你本地实际的RScript.exe路径
    rPath = """C:\Program Files\R\R-4.3.2\bin\RScript.exe"""
    ' 替换为你本地实际的R脚本路径
    scriptPath = """C:\R_code\Forecast.R"""
    path = rPath & " " & scriptPath
    errorCode = shell.Run(path, style, waitTillComplete)
End Sub

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