文章介绍了在Excel中使用VBA宏批量导出工作表为TXT或CSV文件的四种方法：导出当前工作表为CSV、批量导出所有工作表为TXT、导出选定区域到CSV，以及带格式选择和时间戳命名的智能导出。每种方法均提供详细VBA代码与操作步骤，适用于Windows 11环境下的高效数据导出需求。
如果您需要将Excel中的多个工作表或指定区域的数据批量导出为文本文件（TXT）或CSV格式，手动操作会非常耗时。通过使用VBA宏可以自动化完成该任务，提高效率并减少错误。
本文运行环境：联想ThinkPad X1 Carbon，Windows 11
一、创建宏以导出单个工作表为CSV文件
此方法适用于将当前活动工作表保存为CSV格式文件，便于在其他程序中导入使用。CSV文件以逗号分隔数据，广泛支持于数据库和数据分析工具。
1、按 Alt + F11 打开VBA编辑器，在左侧工程资源管理器中右键点击对应工作簿，选择“插入” -> “模块”。
2、在新建的模块窗口中粘贴以下代码：
Sub ExportToCSV()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim savePath As String
savePath = "C:\Temp\" & ws.Name & ".csv"
ws.Copy
ActiveWorkbook.SaveAs Filename:=savePath, FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
End Sub
3、修改路径 C:\Temp\ 为您希望保存文件的实际目录，确保该文件夹已存在。
4、关闭VBA编辑器，返回Excel，按 Alt + F8 运行宏“ExportToCSV”，即可将当前工作表导出为CSV文件。
二、批量导出所有工作表为独立的TXT文件
该方法可将工作簿中每一个工作表分别导出为以制表符分隔的TXT文本文件，适合需要保留原始列对齐结构的场景。
1、打开VBA编辑器，插入新模块，并粘贴以下代码：
Sub BatchExportToTXT()
Dim ws As Worksheet
Dim savePath As String
For Each ws In ThisWorkbook.Worksheets
ws.Copy
savePath = "C:\Temp\" & ws.Name & ".txt"
ActiveWorkbook.SaveAs Filename:=savePath, FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
Next ws
End Sub
2、确认目标文件夹 C:\Temp\ 存在，否则程序会报错。
3、运行宏后，每个工作表都会被单独保存为一个TXT文件，内容使用制表符分隔字段。
三、根据特定范围导出数据到CSV文件
当只需要导出工作表中的某个选定区域（如A1:D100）时，可通过定义特定范围来精确控制输出内容。
1、在VBA模块中添加如下代码：
Sub ExportRangeToCSV()
Dim rng As Range
Set rng = Selection ' 可替换为具体范围，例如 Sheets("Sheet1").Range("A1:D100")
If TypeName(rng) = "Range" Then
Dim tempWb As Workbook
Set tempWb = Workbooks.Add
rng.Copy tempWb.Sheets(1).Range("A1")
Dim savePath As String
savePath = "C:\Temp\ExportedData.csv"
tempWb.SaveAs Filename:=savePath, FileFormat:=xlCSV, CreateBackup:=False
tempWb.Close SaveChanges:=False
End If
End Sub
2、在Excel中先选中要导出的数据区域，然后运行此宏。
3、所选区域将被复制到新工作簿并保存为CSV文件，避免包含空白行或无关列。
四、动态命名与多条件判断导出TXT/CSV
通过加入条件判断和时间戳命名机制，实现更灵活的导出策略，防止文件覆盖并区分不同导出批次。
1、使用以下增强型代码：
Sub SmartExport()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim fileFormat As Integer
Dim extension As String
Dim saveName As String
If MsgBox("导出为CSV格式？", vbYesNo) = vbYes Then
fileFormat = xlCSV
extension = ".csv"
Else
fileFormat = xlText
extension = ".txt"
End If
saveName = "C:\Temp\" & ws.Name & "_" & Format(Now, "yyyymmddhhnnss") & extension
ws.Copy
With ActiveWorkbook
.SaveAs Filename:=saveName, FileFormat:=fileFormat, CreateBackup:=False
.Close SaveChanges:=False
End With
End Sub
2、运行宏时会弹出询问框，让用户选择导出格式。
3、文件名中自动附加当前时间戳，确保每次导出生成唯一文件名，避免覆盖风险。
