如何从xls文件制作多个csv文件？

• 我有12张工作表的Excel文件。
• 当试图将文件保存为CSV文件（ Save As ... ）时，我必须手动执行12次（分别为每张纸）。

有办法不这样做手动或一步手动做到这一点？

Answer 1

我已经提供了从每个工作表导出到一个单独的csv文件我vbs代码的vba版本

它将单个工作表保存到与主工作簿（ ActiveWorkbook ）相同的path中，并使用主工作簿中用于文件名的每个工作表选项卡的名称。

 Sub SaveAsCSV() Dim objWB As Workbook Dim objws As Worksheet Set objWB = ActiveWorkbook If Len(objWB.Path) = 0 Then MsgBox ActiveWorkbook.Name & " is not saved. Please save file then re-run this code", vbCritical Exit Sub End If With Application .ScreenUpdating = False .EnableEvents = False .DisplayAlerts = False End With For Each objws In objWB.Sheets objws.Copy ActiveWorkbook.SaveAs objWB.Path & "\" & objws.Name & ".csv", xlCSV ActiveWorkbook.Close False Next With Application .ScreenUpdating = True .EnableEvents = True .DisplayAlerts = True End With End Sub