批量转换Excel转CSV文件

本文为Excel VBA代码，可以实现将某一文件夹内的Excel文件（xls或者xlsx）另存为“逗号分隔的csv文件”。

 

使用条件：

1. Windows系统；

2. 已安装 MS 2007或以上版本

 

本文测试环境：  Win7 sp1 64bit 英文系统+MS2013

 

 

1.首先新建一个Excel文件，按Alt+F11，打开VBA编辑器，选择Insert-Module, 在编辑器中输入如下代码：

其中，fPath 定义了存放Excel文件的路径，sPath定义了csv文件的输出位置，根据个人情况进行修改，不要忘记路径最后的左斜线。

 

 

Sub SaveToCSVs()
    Dim fDir As String

    Dim wB As Workbook

    Dim wS As Worksheet

    Dim fPath As String

    Dim sPath As String

    fPath = "C:Usersms-off1Desktop	emp"

    sPath = "C:Usersms-off1Desktop	emp"

    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

　　

 

2.点击VBA编辑器中的Run--> Run Sub/User Form，或者按下F5，开始执行程序。

 

 https://study.163.com/provider/400000000398149/index.htm?share=2&shareId=400000000398149（ 欢迎关注博主主页，学习python视频资源，还有大量免费python经典文章）