excel 批量轉換格式 爲csv

準備2個目錄，一個爲原始excel文件目錄，一個爲轉換後目錄

例如：C:\1111\xlsx       C:\1111\csv

1、新建excel文件，開發工具-VB

如沒有開發工具選項，按如下步驟：   文件---選項---自定義功能區----開發工具 打鉤-----確定

2、雙擊 sheet1

3、在彈出的對話框中 粘貼 下面 代碼； 注意其中的兩個路徑結尾必須是\，第一個爲原始文件路徑，第二個爲更改格式後文件存儲路徑

Sub SaveToCSVs()

    Dim fDir As String

    Dim wB As Workbook

    Dim wS As Worksheet

    Dim fPath As String

    Dim sPath As String

    fPath = "C:\1111\xlsx\"

    sPath = "C:\1111\csv保存位置\"

    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

4、運行------運行子過程/用戶窗體-----確定即可