Как мне скопировать и вставить строки кода из Excel в RStudio и запустить его с помощью VBA? - PullRequest
Новая
       34

Как мне скопировать и вставить строки кода из Excel в RStudio и запустить его с помощью VBA?

0 голосов
/ 05 июня 2019

Я пытаюсь автоматизировать процесс кластеризации, при котором пользователю нужно будет всего лишь нажать кнопку, и строки кода на листе Excel будут скопированы и вставлены в RStudio и автоматически запущены, предоставляя пользователю выходной файл Excel.

В настоящее время у меня в книге Excel находится лист с именем R Code, который мне нужно скопировать в RStudio.Строки кода представлены в виде текстового формата в столбце A, и, следовательно, мне нужно только скопировать содержимое столбца A в RStudio, запустить его и вывести полученный файл пользователю.

В настоящее время я могу сделать это вручную, но я хочу автоматизировать это через VBA.С моим кодом ниже я могу только открыть RSTudio, и мой макрос продолжает работать.

Любая помощь будет принята с благодарностью.Спасибо. 

Option Explicit

Public Sub RunRCode()
    ActiveWorkbook.Save
    Dim shell As Object
    Set shell = VBA.CreateObject("WScript.Shell")
    Dim waitTillComplete As Boolean: waitTillComplete = True
    Dim style As Long: style = 1
    Dim errorcode As Long
    Dim path As String
    Dim var1 As String
    var1 = Worksheets("R Code").Columns(1).Copy
     path = """C:\Program Files\RStudio\bin\rstudio.exe"" ""C:\Users\LI\Downloads\starting_code_v3.R"" """ & var1 & """"

    errorcode = shell.Run(path, style, waitTillComplete)
End Sub
...