如何在Excel中將多個(gè)Excel文件批量轉(zhuǎn)換為CSV文件？

在Excel中，我們可以使用“另存為”功能將工作簿轉(zhuǎn)換為CSV文件，但是您知道如何將多個(gè)Excel文件批量轉(zhuǎn)換為單獨(dú)的CSV文件嗎？ 在本文中，我介紹了一個(gè)VBA代碼，用于將文件夾中的所有Excel文件批量轉(zhuǎn)換為Excel中的CSV文件。

使用VBA將文件夾的Excel文件批量轉(zhuǎn)換為CSV文件

將工作簿表轉(zhuǎn)換為單獨(dú)的 CSV 文件 Kutools for Excel

使用VBA將文件夾的Excel文件批量轉(zhuǎn)換為CSV文件

在Excel中，除了VBA，沒有內(nèi)置函數(shù)可以快速解決此問題。

1.啟用Excel，然后按 Alt + F11鍵 鑰匙打開 Microsoft Visual Basic應(yīng)用程序 窗口。

2。 點(diǎn)擊 插頁 > 模塊 創(chuàng)建一個(gè)新的模塊。

3.復(fù)制以下代碼并將其粘貼到新的“模塊”窗口中。

VBA：將Excel文件批量轉(zhuǎn)換為CSV

Sub WorkbooksSaveAsCsvToFolder()UpdatebyExtendoffice20181031Dim xObjWB As WorkbookDim xObjWS As WorksheetDim xStrEFPath As StringDim xStrEFFile As StringDim xObjFD As FileDialogDim xObjSFD As FileDialogDim xStrSPath As StringDim xStrCSVFName As StringDim xS As StringApplication.ScreenUpdating = FalseApplication.EnableEvents = FalseApplication.Calculation = xlCalculationManualApplication.Displayalerts = FalseOn Error Resume NextSet xObjFD = Application.FileDialog(msoFileDialogFolderPicker)xObjFD.AllowMultiSelect = FalsexObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"If xObjFD.Show <> -1 Then Exit SubxStrEFPath = xObjFD.SelectedItems(1) & ""Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)xObjSFD.AllowMultiSelect = FalsexObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"If xObjSFD.Show <> -1 Then Exit SubxStrSPath = xObjSFD.SelectedItems(1) & ""xStrEFFile = Dir(xStrEFPath & "*.xls*")Do While xStrEFFile <> ""xS = xStrEFPath & xStrEFFileSet xObjWB = Application.Workbooks.Open(xS)xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSVxObjWB.Close savechanges:=FalsexStrEFFile = DirLoopApplication.Calculation = xlCalculationAutomaticApplication.EnableEvents = TrueApplication.ScreenUpdating = TrueApplication.Displayalerts = TrueEnd SubCopy

4。 按 F5

鍵，在第一個(gè)彈出對話框中選擇包含要轉(zhuǎn)換為CSV文件的Excel文件的文件夾。

5。 點(diǎn)擊 OK

，然后在第二個(gè)彈出對話框中，選擇放置CSV文件的文件夾。

6。 點(diǎn)擊 OK

，現(xiàn)在文件夾中的Excel文件已轉(zhuǎn)換為CSV文件并保存在另一個(gè)文件夾中。

將工作簿表轉(zhuǎn)換為單獨(dú)的 CSV 文件 Kutools for Excel

眾所周知，我們只能使用Excel的另存為功能將整個(gè)工作簿轉(zhuǎn)換為一個(gè)CSV文件。 但是有時(shí)候，您希望將單個(gè)工作表轉(zhuǎn)換為CSV文件，在這種情況下， 拆分工作簿 實(shí)用程序 Kutools for Excel 可以幫你。

Kutools for Excel, 與超過 300 方便的功能，使您的工作更加輕松。免費(fèi)全功能 30 天

安裝后 Kutools for Excel，請執(zhí)行以下操作：（ Kutools for Excel 現(xiàn)在！）

1.啟用要將其工作表轉(zhuǎn)換為單獨(dú)的CSV文件的工作簿，單擊 Kutools 加 > 工作簿 > 拆分工作簿

.

2.在 拆分工作簿 對話框中，檢查要拆分的工作表名稱（默認(rèn)情況下選中所有工作表），然后選中 除上文所 類型，選擇 CSV（Macintosh）（* .CSV）

從下拉列表中選擇。

3。 點(diǎn)擊 分裂 彈出 瀏覽文件夾

對話框中，選擇或創(chuàng)建一個(gè)文件夾以放置CSV文件。

4。 點(diǎn)擊 OK

，現(xiàn)在工作簿已拆分為單獨(dú)的CSV文件。

拆分工作簿

最佳辦公生產(chǎn)力工具

將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!

準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！

為什么需要 Kutools for Excel