如何将批量xlsx文件转为csv文件？

Question

如何将批量xlsx文件转为csv文件？

试过的方法:
用了vba修改后，选择执行后页面不运行
→
Sub SaveToCSVs()

Dim fDir As String

Dim wB As Workbook

Dim wS As Worksheet

Dim fPath As String

Dim sPath As String

fPath = "C:\Users\xinxu.HOME\Desktop\test5\"

sPath = "C:\Users\xinxu.HOME\Desktop\test4\"

fDir = Dir(fPath)

Do While (fDir <> "")

    If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsx" Then

        On Error Resume Next

        Set wB = Workbooks.Open(fPath & fDir)

        'MsgBox (wB.Name)

        For Each wS In wB.Sheets

            wS.SaveAs sPath & wB.Name & ".csv", xlCSV

        Next wS

        wB.Close False

        Set wB = Nothing

    End If

    fDir = Dir

    On Error GoTo 0

Loop

End Sub

Answer 1

直接用python写一个批量重命名脚本就行了吧