如何在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应用程序 窗口，然后单击 插页 > 模块。 看截图：

备注：确保关闭了要转换的所有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。 点击 OK，所选文件夹中的所有CSV文件都已转换为其中的XLS文件。

Tips:：如果要将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

一次即可快速转换或导出一定范围的图纸以分离XLS / Word / PDF或其他格式的文件

通常，Excel不支持您选择快速将范围导出或保存为CSV或Excel文件的选项。 如果要在Excel中将数据范围另存为CSV或工作簿，则可能需要使用VBA宏来执行此操作，或者将范围复制到剪贴板并将其粘贴到新工作簿中，然后将工作簿另存为CSV或工作簿。 Kutools for Excel 用扩展Excel 将范围导出到文件 想要快速处理以下操作的Excel用户的实用程序：  点击获取 30 天全功能免费试用！

Kutools for Excel：拥有300多个便捷的Excel加载项，可以在30天内免费试用。

相关文章：

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

最佳办公生产力工具

🤖	Kutools 人工智能助手：基于以下内容彻底改变数据分析： 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
	热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
	超级查询: 多条件VLookup  |   多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
	高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
	列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
	特色功能: 网格焦点   |  设计图   |   大方程式酒吧   |  工作簿和工作表管理器   |  资源库 （自动文本）   |  日期选择器   |  合并工作表   |  加密/解密单元格   |  按列表发送电子邮件   |  超级筛选   |   特殊过滤器 （过滤粗体/斜体/删除线...）...
	前 15 个工具集:  12 文本 工具 (添加文本, 删除字符，...）   |   50+ 图表 类型 (甘特图，...）   |   40+ 实用 公式 (根据生日计算年龄，...）   |   19 插入 工具 (插入二维码, 从路径插入图片，...）   |   12 转化 工具 (小写金额转大写, 货币兑换，...）   |   7 合并与拆分 工具 (高级组合行, 分裂细胞，...）   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

阅读更多 免费下载...

---

Office Tab 为 Office 带来选项卡式界面，让您的工作更加轻松

• 在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
• 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
• 每天将您的工作效率提高50％，并减少数百次鼠标单击！

阅读更多 免费下载...