Access VBA实现表首列数据均分至多个TXT文件（每文件≥500条）

核心逻辑 #

先统计XY表第一列的总记录数，再根据要求计算文件数量（保证每个文件至少500条），接着算出每个文件的基础条数和余数，将余数均匀分配到最后N个文件（每个多1条），避免全部堆在最后一个文件，最后逐文件查询对应范围的记录并写入TXT。

完整VBA代码 #

Sub ExportXYColumnToTxtFiles()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim totalRecords As Long
    Dim fileCount As Integer
    Dim baseCount As Long
    Dim remainder As Integer
    Dim currentFile As Integer
    Dim startRecord As Long
    Dim endRecord As Long
    Dim recordsToExport As Long
    Dim txtPath As String
    Dim fso As Object
    Dim txtFile As Object
    Dim cumulativeRecords As Long
    
    ' 自定义导出路径（可修改为你需要的目录）
    txtPath = CurrentProject.Path & "\XY_Exports\"
    
    ' 创建导出目录（不存在则自动生成）
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(txtPath) Then
        fso.CreateFolder txtPath
    End If
    
    ' 打开当前Access数据库
    Set db = CurrentDb()
    
    ' 获取XY表第一列的总记录数（需替换为你的实际字段名，这里用Column1示例）
    totalRecords = db.OpenRecordset("SELECT COUNT(*) FROM XY").Fields(0).Value
    
    ' 计算需要生成的文件数量
    If totalRecords <= 500 Then
        fileCount = 1
    Else
        ' 取总记录数除以500的整数部分，确保每个文件至少500条
        fileCount = totalRecords \ 500
    End If
    
    ' 计算基础记录条数和余数
    baseCount = totalRecords \ fileCount
    remainder = totalRecords Mod fileCount
    
    ' 循环处理每个文件
    cumulativeRecords = 0
    For currentFile = 1 To fileCount
        ' 分配余数：最后remainder个文件各多1条记录
        If currentFile > (fileCount - remainder) Then
            recordsToExport = baseCount + 1
        Else
            recordsToExport = baseCount
        End If
        
        ' 计算当前文件的记录范围
        startRecord = cumulativeRecords + 1
        endRecord = cumulativeRecords + recordsToExport
        cumulativeRecords = endRecord
        
        ' 查询指定范围的记录（假设表有主键ID用于排序，需替换为你的实际排序字段）
        Set rs = db.OpenRecordset("SELECT Column1 FROM XY " & _
                                "WHERE (SELECT COUNT(*) FROM XY AS T WHERE T.ID <= XY.ID) BETWEEN " & startRecord & " AND " & endRecord)
        
        ' 创建并写入TXT文件
        Set txtFile = fso.CreateTextFile(txtPath & "XY_File_" & currentFile & ".txt", True)
        Do While Not rs.EOF
            txtFile.WriteLine rs("Column1").Value
            rs.MoveNext
        Loop
        
        ' 关闭当前文件和记录集
        txtFile.Close
        rs.Close
    Next currentFile
    
    ' 释放资源
    Set txtFile = Nothing
    Set fso = Nothing
    Set rs = Nothing
    Set db = Nothing
    
    MsgBox "导出完成！共生成 " & fileCount & " 个文件。", vbInformation
End Sub

关键细节说明 #

1. 字段与排序：代码中假设第一列字段名为Column1，且表有主键ID用于排序。如果你的表没有主键，可改用DAO的Move方法定位记录，替代SQL查询：

   ' 替换原有SQL查询的代码块
   Set rs = db.OpenRecordset("SELECT Column1 FROM XY ORDER BY 你的排序字段")
   rs.Move startRecord - 1
   For i = 1 To recordsToExport
       txtFile.WriteLine rs("Column1").Value
       rs.MoveNext
       If rs.EOF Then Exit For
   Next i
   

2. 路径与命名：修改txtPath变量可自定义导出目录，生成的文件名为XY_File_1.txt、XY_File_2.txt等，可自行调整命名规则。
3. 余数分配逻辑：通过currentFile > (fileCount - remainder)判断，将余数均匀分配到最后N个文件，比如1729条记录会生成3个文件，前两个各576条，最后一个577条，完全符合需求。
4. 目录创建：代码会自动创建指定的导出目录，无需手动提前创建。

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