如何在Excel中批量将多个Excel文件转换为CSV文件？

使用“另存为”功能可以将Excel文件转换为CSV格式，但手动逐个处理多个文件非常耗时。如果您需要批量将多个Excel文件转换为单独的CSV文件，本指南提供了两种高效的方法：

使用VBA将文件夹中的Excel文件批量转换为CSV文件

使用Kutools for Excel将工作簿中的工作表转换为单独的CSV文件

使用VBA将文件夹中的Excel文件批量转换为CSV文件

在Excel中，除了使用VBA外，没有内置功能可以快速完成此任务。

1. 打开Excel，并按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块 创建一个新模块。

3. 复制以下代码并将其粘贴到新的模块窗口中。

VBA：批量将Excel文件转换为CSV文件

Sub WorkbooksSaveAsCsvToFolder()
'UpdatebyExtendoffice20181031
Dim xObjWB As Workbook
Dim xObjWS As Worksheet
Dim xStrEFPath As String
Dim xStrEFFile As String
Dim xObjFD As FileDialog
Dim xObjSFD As FileDialog
Dim xStrSPath As String
Dim xStrCSVFName As String
Dim xS  As String
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    Application.DisplayAlerts = False
    On Error Resume Next
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
    xObjFD.AllowMultiSelect = False
    xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"
    If xObjFD.Show <> -1 Then Exit Sub
    xStrEFPath = xObjFD.SelectedItems(1) & "\"
    Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)
    xObjSFD.AllowMultiSelect = False
    xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"
    If xObjSFD.Show <> -1 Then Exit Sub
    xStrSPath = xObjSFD.SelectedItems(1) & "\"
    xStrEFFile = Dir(xStrEFPath & "*.xls*")
    Do While xStrEFFile <> ""
       xS = xStrEFPath & xStrEFFile
        Set xObjWB = Application.Workbooks.Open(xS)
        xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"
        xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV
        xObjWB.Close savechanges:=False
        xStrEFFile = Dir
  Loop
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

4. 按下 F5 键，在弹出的第一个对话框中选择包含要转换为CSV文件的Excel文件的文件夹。

5. 单击 确定，然后在第二个弹出的对话框中选择放置CSV文件的文件夹。

6. 单击 确定，现在该文件夹中的Excel文件已转换为CSV文件并保存在另一个文件夹中。

使用Kutools for Excel将工作簿中的工作表转换为单独的CSV文件

众所周知，我们只能通过Excel的“另存为”功能将整个工作簿转换为一个CSV文件。有时，您可能需要将单个工作表转换为CSV文件。在这种情况下，Kutools for Excel 的 分割工作簿 工具可以帮助您。

1. 打开要将其工作表作为单独CSV文件转换的工作簿，点击 Kutools Plus > 工作簿 > 分割工作簿.

2. 在 分割工作簿 对话框中，勾选要分割的工作表名称（默认情况下所有工作表都已勾选），勾选 另存为 类型，选择 CSV (逗号分隔) (*.csv) 从下拉列表中。

3. 单击 分割 以弹出 浏览文件夹 对话框，选择或创建一个文件夹来存放CSV文件。

4. 单击 确定，工作簿将被分割成单独的CSV文件。

演示：使用Kutools for EXCEL分割工作簿