Error running RScript in Excel VBA

Question

I've searched through several solutions to this same problem, but my code still doesn't work. Made sure to not have spaces in my file path, and still have it triple quoted to be sure. I get the "Method 'Run' of object 'IWshShell3' failed" error from running the macro. What could I be missing here?

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 path As String
    path = "RScript ""G:\structureshouston\Kocian\hello.R"""
    errorCode = shell.Run(path, style, waitTillComplete)
End Sub

Can you actually run Rscript from your command line? Is it accessible via your Path environment variable? — MrFlick
– MrFlick, Commented Apr 14, 2016 at 21:52
Is the .r file extension associated with rscript.exe ? Can you omit the program and run it by association? — user4039065
– user4039065, Commented Apr 14, 2016 at 22:01
I am able to run the Rscript from cmd, yes. It works perfectly when done that way. I actually just tried it out now and get no error messages. Made no changes over the weekend or anything else. So bizzare. — Matt K.
– Matt K., Commented Apr 19, 2016 at 14:38

Dave2e · Accepted Answer · 2016-04-15 14:24:39Z

4

I believe your level of quotes is incorrect. The RScript should be in quotes while the filename for the script shouldn't be. Also, I like to make sure I include the full path names in the call. Try:

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

You may need to update the path to RScript depending on the version you have installed.

answered Apr 15, 2016 at 14:24

Dave2e

24.3k18 gold badges46 silver badges57 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

aman Over a year ago

it helped me too. Can you please tell how to send variable to R with the path too

M-- Over a year ago

@aman stackoverflow.com/questions/30698929/… or stackoverflow.com/questions/51139735/…

ASH · Accepted Answer · 2016-05-17 14:35:52Z

it took a little effort to get this going, but the following worked for me.

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

Make sure you read about setting up the 'permissions' using the link below.

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

Collectives™ on Stack Overflow

Error running RScript in Excel VBA

2 Answers 2

2 Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related