Выполнить Git Bash из Excel VBA - PullRequest
Новая
       8

Выполнить Git Bash из Excel VBA

1 голос
/ 23 января 2020

Мне нужна помощь, как выполнить команду Git - bash из Excel VBA
Я хочу разбить мой CSV на несколько файлов
Я использую код, полученный здесь: pu sh до git из vba на windows, но не работает.

Вот мой код. 

Sub Split_JPN_Rolled()

Dim gitFileCommands As String
Dim Fname As Variant

    Dim CurrentDate As String

    For i = 1 To 4
    Select Case i
    Case 1
    CurrentDate = Format(Date, "yyyymmdd")
    Case 2
    CurrentDate = Format(Date - 1, "yyyymmdd")
    Case 3
    CurrentDate = Format(Date - 2, "yyyymmdd")
    Case 4
    CurrentDate = Format(Date - 3, "yyyymmdd")
    End Select

    Fname = "C:\Users\Name\Desktop\SPM Raw Data\JPN_6M_DMD_Rolled_" & CurrentDate & ".csv"
    If Dir(Fname) <> "" Then
    Shell "C:\Users\Name\AppData\Local\Programs\Git\git-bash.exe --login -i --cd=""C:\Users\Name\Desktop\SPM Raw Data"" ""split JPN_6M_DMD_Rolled_*.csv JPNRolled -l 1048500 -a 2 -d"""

    Exit Sub
    End If
    Next i

End Sub

Спасибо за вашу помощь.

...