如何在Excel 2013/2016/2019中保存多個或所有工作表為單獨的csv文件 如何使用Excel中的VBA宏備份所有工作表為單獨的文本文件

本文將指導您如何將Excel中工作簿中每個工作表保存為的單獨CSV文件。如何在Excel 2013/2016中保存多個或所有工作表為單獨的csv文件。如何使用Excel中的VBA宏導出所有工作表為單獨的文本文件。

• 導出每個工作表為單獨的CSV文件
• 導出每個工作表為單獨的文本文件

導出每個工作表為單獨的CSV文件

假設您有一個包含四個不同工作表的工作簿，sheet1，sheet2，sheet3和sheet4。并且您希望每個工作表都導出為單獨的CSV文件，并且每個CSV文件的文件名與其所在的工作簿的工作表名相同。要實現導出多個工作表為單獨的csv文件，您必須使用VBA宏將當前工作簿中的所有工作表保存為單獨的csv文件。執行下面的步驟：

步驟1：打開您的Excel工作簿，然后單擊開發工具選項卡下的“Visual Basic”命令，或者只需按“ALT + F11”快捷方式。

步驟2：然后將出現“Visual Basic編輯器”窗口。

步驟3：單擊“插入” – >“模塊”以創建新模塊。

步驟4：將以下VBA代碼粘貼到代碼窗口中。然后單擊“保存”按鈕。

Public Sub SaveWorksheetsAsCsv()Dim WS As Excel.WorksheetDim SaveToDirectory As StringDim CurrentWorkbook As StringDim CurrentFormat As Long CurrentWorkbook = ThisWorkbook.FullName CurrentFormat = ThisWorkbook.FileFormat' Store current details for the workbook      SaveToDirectory = "D:\tmp\"      For Each WS In ThisWorkbook.Worksheets          WS.SaveAs SaveToDirectory & WS.Name, xlCSV      Next Application.DisplayAlerts = False  ThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=CurrentFormat Application.DisplayAlerts = True' Temporarily turn alerts off to prevent the user being prompted'  about overwriting the original file.End Sub

步驟5：返回當前工作表，然后運行上面的excel宏。點擊執行按鈕。

步驟6：您將看到所有工作表已轉換為指定目錄中的單個CSV文件。此示例將csv文件保存到D：tmp目錄中。您需要根據需要更改變量“SaveToDirectory”。或者您也可以在磁盤D分區中創建一個名為tmp的臨時目錄。

導出每個工作表為單獨的文本文件

如果只想將每個工作表轉換為活動工作簿的單獨文本文件，還可以使用Excel VBA宏來實現結果。只需使用以下VBA代碼：

Public Sub SaveWorksheetsAsCsv()Dim WS As Excel.WorksheetDim SaveToDirectory As StringDim CurrentWorkbook As StringDim CurrentFormat As Long CurrentWorkbook = ThisWorkbook.FullName CurrentFormat = ThisWorkbook.FileFormat' Store current details for the workbook      SaveToDirectory = "D:\tmp\"      For Each WS In ThisWorkbook.Worksheets          WS.SaveAs SaveToDirectory & WS.Name & ".txt"      Next Application.DisplayAlerts = False  ThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=xlText Application.DisplayAlerts = True' Temporarily turn alerts off to prevent the user being prompted'  about overwriting the original file.End Sub