Выполнение RScript из Excel В доступе отказано Код ошибки 70 - PullRequest
Новая
       10

Выполнение RScript из Excel В доступе отказано Код ошибки 70

0 голосов
/ 26 апреля 2019

Я пытаюсь запустить Rscript из Excel VBA и получаю следующую ошибку.Я пробовал разные вещи, но просто не могу заставить его работать.Может ли кто-нибудь помочь, пожалуйста? 

Function Run_R_Script(sRApplicationPath As String, _
                        sRFilePath As String, _
                        Optional iStyle As Integer = 1, _
                        Optional bWaitTillComplete As Boolean = True) As Integer

    Dim sPath As String
    Dim shell As Object

    'Define shell object
    Set shell = VBA.CreateObject("WScript.Shell")

    'Wrap the R path with double quotations
    sPath = """" & sRApplicationPath & """"
    sPath = sPath & " "
    sPath = sPath & sRFilePath

    Run_R_Script = shell.Run(sPath, iStyle, bWaitTillComplete)
End Function
...