批量轉換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
    Loop
End Sub

2.點擊VBA編輯器中的Run--> Run Sub/User Form，或者按下F5，開始執行程序。