如何用VBA将Excel A列数据按999行拆分导出为TXT文件

使用步骤 #

• 打开你要处理的Excel文件，按Alt + F11打开VBA编辑器
• 右键点击左侧工程资源管理器中的对应工作簿，选择「插入」->「模块」
• 将下方代码粘贴到模块窗口中，按F5运行即可

代码实现 #

版本1：处理当前活动工作表 #

适合单表拆分需求，导出的TXT默认保存在Excel文件同目录下：

Sub 拆分A列导出TXT()
    Const 每批次行数 As Long = 999
    Dim 数据数组 As Variant
    Dim 输出文件号 As Integer
    Dim 行号 As Long, 批次号 As Long
    Dim 输出路径 As String
    Dim 写入行计数 As Long
    
    ' 校验文件是否已保存
    输出路径 = ThisWorkbook.Path & "\"
    If 输出路径 = "\" Then
        MsgBox "请先保存当前Excel文件再运行代码", vbCritical
        Exit Sub
    End If
    
    ' 一次性读取A列所有有效数据，避免逐行读取降低效率
    数据数组 = ActiveSheet.Range("A1:A" & ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row).Value
    
    行号 = 1
    批次号 = 1
    
    Do While 行号 <= UBound(数据数组, 1)
        ' 创建新的TXT文件
        输出文件号 = FreeFile
        Open 输出路径 & "data_" & 批次号 & ".txt" For Output As #输出文件号
        
        写入行计数 = 0
        ' 写入当前批次的999行数据
        Do While 写入行计数 < 每批次行数 And 行号 <= UBound(数据数组, 1)
            ' 如果需要适配SQL IN查询格式，把下一行替换为 Print #输出文件号, "'" & Replace(数据数组(行号, 1), "'", "''") & "'" 即可自动转义单引号
            Print #输出文件号, 数据数组(行号, 1)
            行号 = 行号 + 1
            写入行计数 = 写入行计数 + 1
        Loop
        
        Close #输出文件号
        批次号 = 批次号 + 1
    Loop
    
    MsgBox "拆分完成！共生成" & 批次号 - 1 & "个TXT文件", vbInformation
End Sub

版本2：批量处理当前工作簿所有工作表 #

适合多表批量拆分需求，导出文件名会自动带上工作表名区分：

Sub 批量处理所有工作表拆分导出()
    Const 每批次行数 As Long = 999
    Dim ws As Worksheet
    Dim 数据数组 As Variant
    Dim 输出文件号 As Integer
    Dim 行号 As Long, 批次号 As Long
    Dim 输出路径 As String
    Dim 写入行计数 As Long
    
    输出路径 = ThisWorkbook.Path & "\"
    If 输出路径 = "\" Then
        MsgBox "请先保存当前Excel文件再运行代码", vbCritical
        Exit Sub
    End If
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        数据数组 = ws.Range("A1:A" & ws.Cells(Rows.Count, "A").End(xlUp).Row).Value
        行号 = 1
        批次号 = 1
        
        Do While 行号 <= UBound(数据数组, 1)
            输出文件号 = FreeFile
            Open 输出路径 & ws.Name & "_data_" & 批次号 & ".txt" For Output As #输出文件号
            
            写入行计数 = 0
            Do While 写入行计数 < 每批次行数 And 行号 <= UBound(数据数组, 1)
                Print #输出文件号, 数据数组(行号, 1)
                行号 = 行号 + 1
                写入行计数 = 写入行计数 + 1
            Loop
            
            Close #输出文件号
            批次号 = 批次号 + 1
        Loop
    Next ws
    
    MsgBox "所有工作表拆分完成！", vbInformation
End Sub

补充说明 #

• 代码不会修改原始Excel数据，运行前无需备份原文件
• 10万行数据拆分耗时不超过2秒，完全满足批量处理需求
• 若A列数据本身包含单引号，使用SQL适配的写法时会自动转义，避免SQL语法错误

内容的提问来源于stack exchange，提问作者Ted Dennis