文章介紹了在Excel中使用VBA宏批量導出工作表為TXT或CSV文件的四種方法：導出當前工作表為CSV、批量導出所有工作表為TXT、導出選定區域到CSV，以及帶格式選擇和時間戳命名的智能導出。每種方法均提供詳細VBA代碼與操作步驟，適用于Windows11環境下的高效數據導出需求。
如果您需要將Excel中的多個工作表或指定區域的數據批量導出為文本文件（TXT）或CSV格式，手動操作會非常耗時。通過使用VBA宏可以自動化完成該任務，提高效率并減少錯誤。
本文運行環境：聯想ThinkPadX1Carbon，Windows11
一、創建宏以導出單個工作表為CSV文件
此方法適用于將當前活動工作表保存為CSV格式文件，便于在其他程序中導入使用。CSV文件以逗號分隔數據，廣泛支持于數據庫和數據分析工具。
1、按Alt+F11打開VBA器，在左側工程資源管理器中右鍵點擊對應工作簿，選擇“插入”->“模塊”。
2、在新建的模塊窗口中粘貼以下代碼：
SubExportToCSV()DimwsAsWorksheetSetws=ActiveSheetDimsavePathAsStringsavePath="C:Temp"&ws.Name&".csv"ws.CopyActiveWorkbook.SaveAsFilename:=savePath,FileFormat:=xlCSV,CreateBackup:=FalseActiveWorkbook.CloseSaveChanges:=FalseEndSub
3、修改路徑C:Temp為您希望保存文件的實際目錄，確保該文件夾已存在。
4、關閉VBA器，返回Excel，按Alt+F8運行宏“ExportToCSV”，即可將當前工作表導出為CSV文件。
二、批量導出所有工作表為獨立的TXT文件
該方法可將工作簿中每一個工作表分別導出為以制表符分隔的TXT文本文件，適合需要保留原始列對齊結構的場景。
1、打開VBA器，插入新模塊，并粘貼以下代碼：
SubBatchExportToTXT()DimwsAsWorksheetDimsavePathAsStringForEachwsInThisWorkbook.Worksheetsws.CopysavePath="C:Temp"&ws.Name&".txt"ActiveWorkbook.SaveAsFilename:=savePath,FileFormat:=xlText,CreateBackup:=FalseActiveWorkbook.CloseSaveChanges:=FalseNextwsEndSub
2、確認目標文件夾C:Temp存在，否則程序會報錯。
三、根據特定范圍導出數據到CSV文件
當只需要導出工作表中的某個選定區域（如A1:D100）時，可通過定義特定范圍來精確控制輸出內容。
1、在VBA模塊中添加如下代碼：
SubExportRangeToCSV()DimrngAsRangeSetrng=Selection'可替換為具體范圍，例如Sheets("Sheet1").Range("A1:D100")IfTypeName(rng)="Range"ThenDimtempWbAsWorkbookSettempWb=Workbooks.Addrng.CopytempWb.Sheets(1).Range("A1")DimsavePathAsStringsavePath="C:TempExportedData.csv"tempWb.SaveAsFilename:=savePath,FileFormat:=xlCSV,CreateBackup:=FalsetempWb.CloseSaveChanges:=FalseEndIfEndSub
2、在Excel中先選中要導出的數據區域，然后運行此宏。
3、所選區域將被復制到新工作簿并保存為CSV文件，避免包含空白行或無關列。
四、動態命名與多條件判斷導出TXT/CSV
通過加入條件判斷和時間戳命名機制，實現更靈活的導出策略，防止文件覆蓋并區分不同導出批次。
1、使用以下增強型代碼：
SubSmartExport()DimwsAsWorksheetSetws=ActiveSheetDimfileFormatAsIntegerDimextensionAsStringDimsaveNameAsStringIfMsgBox("導出為CSV格式？",vbYesNo)=vbYesThenfileFormat=xlCSVextension=".csv"ElsefileFormat=xlTextextension=".txt"EndIfsaveName="C:Temp"&ws.Name&"_"&Format(Now,"yyyymmddhhnnss")&extensionws.CopyWithActiveWorkbook.SaveAsFilename:=saveName,FileFormat:=fileFormat,CreateBackup:=False.CloseSaveChanges:=FalseEndWithEndSub
2、運行宏時會彈出詢問框，讓用戶選擇導出格式。
3、文件名中自動附加當前時間戳，確保每次導出生成唯一文件名，避免覆蓋風險。
以上就是Excel如何使用宏將數據導出為文本（TXT）或CSV文件_Excel宏批量導出TXT/CSV文件方法的詳細內容，！
