如何快速将Excel的多个工作表分别保存为CSV格式

步骤：

• 打开需要转换的Excel表格
• 按 Alt+F11 打开 VBA 编辑器。
• 选择插入，然后转到模块。

• 输入以下代码：

Sub Save_Excel_to_csv()
Dim ws1 As Worksheet
Dim path_1 As String
Application.ScreenUpdating = False
path_1 = ActiveWorkbook.Path & "" & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
For Each ws1 In Worksheets
ws1.Copy
ActiveWorkbook.SaveAs Filename:=path_1 & "" & ws1.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close False
Next
 Application.ScreenUpdating = True
End Sub

• 关闭 Visual Basic 窗口。
• 按Alt+F8。
• 当宏对话框打开时，在宏名称中选择Save_Excel_to_CSV  。
• 单击运行。

• 您将获得如下图所示的 CSV 文件。