批量转换Excel转CSV文件

<span style="font-family: 'Microsoft YaHei', 'Helvetica Neue', SimSun; background-color: rgb(231, 238, 244);">本文为Excel VBA代码，可以实现将某一文件夹内的Excel文件（xls或者xlsx）另存为“逗号分隔的csv文件”。</span>

使用条件：

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:\Users\ms-off1\Desktop\temp\"    sPath = "C:\Users\ms-off1\Desktop\temp\"    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    LoopEnd Sub

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