Excel VBAでRScriptを実行中にエラーが発生しました

Question

私はこの同じ問題を解決するためにいくつかの解決策を探しましたが、私のコードはまだ動作しません。私のファイルパスにスペースを入れないようにしてください。そして、それでも確実に三倍引用符を付けてください。私は "メソッド 'Run'オブジェクトの '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へのパスを更新する必要があります。

Answer 2

これを行うには多少の努力が必要でしたが、次のことが私のために働いていました。

Sub RunRscript1() 
    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 to R executable: C:\Users\rshuell001\Documents\R\R-3.2.5\bin\x64\R.exe 
    ' path to R script: C:\Users\rshuell001\Documents\R\Download.r 
    ' see more setup details here 
    ' http://shashiasrblog.blogspot.com/2013/10/vba-front-end-for-r.html 
    path = "C:\Users\rshuell001\Documents\R\R-3.2.5\bin\x64\R.exe CMD BATCH --vanilla --slave C:\Users\rshuell001\Documents\R\Download.r" 
    'path = """C:\Users\rshuell001\Documents\R\R-3.2.5\bin\i386"" C:\Users\rshuell001\Documents\R\Download.R" 
    errorCode = shell.Run(path, style, waitTillComplete) 
End Sub 

以下のリンクを使用して「アクセス許可」を設定することをお読みください。

http://shashiasrblog.blogspot.com/2013/10/vba-front-end-for-r.html