VBA导出Access表数据到txt文件时仅输出部分记录集问题咨询

核心问题原因 #

你提供的代码存在两个核心问题导致导出内容截断：

1. 写入完成后未关闭文件句柄，VBA写入文件时会先将内容放到内存缓冲区，只有显式关闭文件时才会把缓冲区剩余的所有内容写入磁盘，你没有执行关闭文件的操作，程序释放资源时缓冲区内容丢失，就会出现随机截断的情况
2. 硬编码文件号#1容易产生冲突，如果当前Access进程内有其他过程占用了1号文件句柄，会导致写入异常

修正后的完整代码 #

Sub ExportTxtFiles()
    Dim rst As DAO.Recordset
    Dim fileNum As Integer
    
    ' 动态获取系统可用的空闲文件号，避免硬编码冲突
    fileNum = FreeFile()
    ' 打开目标txt文件
    Open "\\...Export Files\ZM.txt" For Output As #fileNum
        
    Set rst = CurrentDb.OpenRecordset("tbl_temp", dbOpenSnapshot)
    
    If rst.RecordCount > 0 Then
        rst.MoveFirst
        Do Until rst.EOF
            Print #fileNum, rst!ID
            rst.MoveNext
        Loop
    End If
    
    ' 按顺序释放资源
    rst.Close
    Set rst = Nothing
    ' 关键操作：关闭文件句柄，触发缓冲区所有内容写入磁盘
    Close #fileNum
End Sub

可选排查方案 #

如果替换代码后仍出现截断问题，可以按以下顺序排查：

• 手动检查tbl_temp表第304行附近的ID字段值，确认是否存在不可见控制字符、换行符等特殊值，特殊字符可能打断Print写入操作
• 如果导出路径是网络共享路径，先将导出路径改为本地磁盘路径测试，如果本地导出完全正常，说明是网络波动导致写入中断，可以先导出到本地临时路径，再通过VBA移动到目标网络路径
• 可以在循环内增加错误捕获逻辑，定位具体中断的原因，示例如下：

On Error Resume Next
Do Until rst.EOF
    Print #fileNum, rst!ID
    If Err.Number <> 0 Then
        Debug.Print "写入记录ID " & rst!ID & " 失败，错误：" & Err.Description
        Err.Clear
    End If
    rst.MoveNext
Loop
On Error GoTo 0

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