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

众所周知，在处理大量数据的时候，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:DesktopRworkcylinder stress files2021-12-10BC5465CB4772"

    sPath = "D:DesktopRworkcylinder stress files2021-12-10CSV保存文件夹"

    fDir = Dir(fPath)

    Do While (fDir <> "")

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

            On Error Resume Next

            Set wB = Workbooks.Open(fPath & fDir)

            MsgBox (wB.Name)

            For Each wS In wB.Sheets

                wS.SaveAs sPath & wB.Name & ".csv", xlCSV

            Next wS

            wB.Close False

            Set wB = Nothing

        End If

        fDir = Dir

        On Error GoTo 0

    Loop

End Sub

红色框框里面为目标Excel文件位置和需要存放CSV文件位置。

第三步：点击运行，等待所有Excel文档转换为CSV文档。