Question

有没有办法在Sublime Console中运行shell命令，就像在Sublime Console中运行Python代码一样？

Answer 1

您可以查看Glue plugin。

否则你可以使用python标准库中的subprocess module，如下所示：

Sub Export_PB_uge()
    Dim pb_uge As Worksheet
    Dim myPath As String
    Dim MyFileName As String
    Dim x As Long
    Dim wsCSV As Worksheet

    myPath = "C:mypath1"

    MyFileName = Sheets("Front_Page").Range("g6").Value

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False

    If Not Right(myPath, 1) = "\" Then myPath = myPath & "\"
    If Not Right(MyFileName, 4) = ".csv" Then MyFileName = MyFileName & ".csv"

    With ThisWorkbook.Sheets("PB_uge")
        If .FilterMode Then pb_uge.ShowAllData
        .Visible = True
        .Copy
    End With

    Set wsCSV = ActiveWorkbook.Sheets(1)

    With wsCSV
        .Range("A1").EntireRow.Delete

        .Range("A1").EntireColumn.Insert
        .Range("A1").Value = "Department"

        lRow = .Cells(Rows.Count, "C").End(xlUp).Row

        .Range("A2:A" & lRow) = ThisWorkbook.Sheets("Front_Page").Range("g6").Value

        .Parent.SaveAs Filename:= _
                myPath & MyFileName, _
                FileFormat:=xlCSV, _
                CreateBackup:=False, _
                Local:=True

        .Parent.Close False
    End With

    ThisWorkbook.Sheets("PB_uge").Visible = False

    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    MsgBox "CSV saved at " & myPath & MyFileName, vbInformation
End Sub

我如何在Sublime Console中运行shell命令？

1 个答案: