xlsx批量转csv

基于Excel软件中的VBA

1.将要转换的Excel文件放在同一个文件夹里，新建一个空白的Excel文件,点击sheet1--“查看代码”。wps点击上面工具栏中的“开发工具”--“VB编辑器”

2.双击“VB编辑器”中的sheet1，输入以下脚本：

Sub xls2csv()

     Application.DisplayAlerts = False

     t = ActiveWorkbook.Name

     mypath = ActiveWorkbook.Path & "\"

     myfile = Dir(mypath & "*.xls")

     Do Until Len(myfile) = 0

           If myfile <> t Then

              Workbooks.Open Filename:=mypath & myfile

              ActiveWorkbook.SaveAs Filename:=mypath & Left(myfile, InStr(myfile, ".") - 1) & ".csv", FileFormat:=xlCSV

     End If

     If myfile <> t Then ActiveWorkbook.Close

     myfile = Dir

 Loop

 Application.DisplayAlerts = True

End Sub