VBAでRスクリプトを実行する間違ったディレクトリ

Question

Rスクリプトを編集するマクロがあります。

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スクリプトは、次のVBAによって呼び出されると想定されていることを 。私はマクロを実行すると

、ただし、Rコマンドラインは私というエラーを与える：。

'\\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

私はそれがUNCパスをサポートしていないため、スクリプトのラッパーとしてPowerShellを使用しようとお勧めします。だから、このようなものがうまくいくはずです：

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'}"