【学习笔记】一键批量转换xlsx文件为CSV文件

最新推荐文章于 2024-04-16 10:38:47 发布

Rickyzhangchanghong

最新推荐文章于 2024-04-16 10:38:47 发布

阅读量1.2w

点赞数 18

分类专栏： Excel处理文章标签：数据分析数据挖掘

本文链接：https://blog.csdn.net/Rickyzhangchanghong/article/details/122795790

版权

本文介绍了如何一键将大量Excel文件批量转换为CSV文件，以降低数据处理的复杂度。通过新建Excel文档，查看代码并输入指定的转换代码，然后运行，即可完成转换，避免手动操作的繁琐。

摘要由CSDN通过智能技术生成

众所周知，在处理大量数据的时候，CSV文档的处理复杂度远远低于Excel文档，所以当手上有大量Excel数据需要处理的时候，可以先把Excel转换为CSV文件，一个个转换又太麻烦，下面介绍一种一键批量转换的方法。

第一步：新建一个Excel文档，在sheet1上右键，点“查看代码”

第二步：复制粘贴以下代码到Excel代码窗口处：

Sub SaveToCSVs()

    Dim fDir As String

    Dim wB As Workbook

    Dim wS As Worksheet

    Dim fPath As String

    Dim sPath As String

    fPath = "D:\Desktop\Rwork\cylinder stress files\2021-12-10\BC5465CB4772\"

    sPath = "D:\Desktop\Rwork\cylinder stress files\2021-12-10\CSV保存文件夹\"

    fDir = Dir(fPath)

    Do While (fDir <> "")

        If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsx" Then

            On Error Resume Next

            Set wB =