从 Excel VBA 执行 Git Bash

Question

我需要有关如何从 Excel VBA 执行 Git-bash 命令的帮助
我想将我的 csv 拆分为多个文件
我正在使用从这里获得的代码：push to git from vba on 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  

感谢您的帮助。

Answer 1

使用 .sh 扩展名而不是 .csv 扩展名保存文件，git bash 应该运行 bash 脚本文件。