Запуск скрипта R в VBA Неправильный каталог

Question

У меня есть макрос, который редактирует скрипт R. Это R сценарий, то должен быть вызван следующим VBA:

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 = """" & "C:\Program Files\R\R-3.3.2\bin\i386\R.exe" & """ """ & "R RAM Cluster Script.R" & """" 

errorCode = shell.Run(path, style, waitTillComplete) 

Приведенный выше код был от this question.

Когда я выполнить макрос, однако, R Command Line дает мне ошибку, указав:.

'\\dm\home\myaccount\*Path of my original Excel File*' 
"CMD.EXE was started with the above path as the current directory. 
    UNC Paths are not supported. Defaulting to Windows directory. 
    Argument 'R RAM Cluster Script.R' Ignored" 

Сценарий хранится в папке, что моя книга Excel находится в

Может кто-нибудь помочь меня с поиском моей проблемы?

Answer 1

Попробуйте это:

Sub test() 
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 = """C:\Program Files\R\R-3.3.1\bin\RScript.exe""" & """c:/temp/R RAM Cluster Script.R""" 

errorCode = shell.Run(path, style, waitTillComplete) 

End Sub 

Answer 2

Я бы предложил попробовать использовать PowerShell в качестве оболочки для вашего сценария, потому что он поддерживает пути UNC. Итак, что-то вроде этого должно работать:

path = "Powershell.exe -executionpolicy bypass -Command &{'C:\Program Files\R\R-3.3.2\bin\i386\R.exe " & ThisWorkbook.Path & "\R RAM Cluster Script.R'}"