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

通过使用“另存为”功能，将 CSV 文件转换为 XLS 或 XLSX 文件非常容易。然而，要从文件夹中将多个 CSV 文件逐一保存为 XLS 或 XLSX 文件则非常耗时。在这里，我介绍一种宏代码，可以快速批量将文件夹中的所有 CSV 文件转换为 XLS(X) 文件。

使用宏代码批量将 CSV 文件转换为 XLS(X) 文件

使用宏代码批量将 CSV 文件转换为 XLS(X) 文件

要将一个文件夹中的多个 CSV 文件转换为 XLS(X) 文件，您可以按照以下步骤操作：

1. 打开一个新的工作簿，按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口，并点击 插入 > 模块。参见截图：

注意：确保您要转换的所有 CSV 文件均已关闭。

2. 然后将下面的宏代码粘贴到模块脚本中，并按 F5 键运行代码。

VBA：将 CSV 转换为 XLS

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

3. 在弹出的对话框中，选择包含要转换的 CSV 文件的指定文件夹。参见截图：

4. 点击 确定，所选文件夹中的所有 CSV 文件都已转换为其中的 XLS 文件。

提示：如果您想将 CSV 文件转换为 XLSX 文件，可以使用以下 VBA 代码。

VBA：将 CSV 文件转换为 XLSX

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

相关文章：

• 如何将 csv 文件转换为 xls 文件或在 Excel 中导入/打开 csv 文件？
• 如何将 Word 文档转换为 Excel 工作表？