Access VBA向新建文件夹导出多字段时出现Invalid Qualifier编译错误

报错直接原因 #

• 你将Record1声明为String字符串类型，只有DAO Recordset对象才具备.EOF、.MoveNext、Fields这类属性与方法，字符串变量调用这类不存在的属性，自然会触发「Invalid Qualifier（无效限定符）」编译错误。

需求适配说明 #

你参考的原代码是用于处理Access表的附件类型字段，所以才有附件子记录集循环、SaveToFile导出附件的逻辑，但你的表中所有字段都是字符串类型，这段附件处理的代码完全不需要保留，你需要新增的是将字符串记录写入文件的逻辑。

修正后完整代码 #

Sub Eng_Test()
    Dim database As DAO.Database
    Dim table As DAO.Recordset
    Dim folder As String
    Dim PKey As String ' engine字段值，一级文件夹名
    Dim P2Key As String ' testtype字段值，二级文件夹名
    Dim Eng_TestFolder As String
    Dim fso As Object ' 用于文件写入，也可改用Open语句
    Dim outputFile As Object
    Dim fieldItem As DAO.Field
    Dim fileName As String
    
    ' 初始化对象
    Set database = CurrentDb
    Set table = database.OpenRecordset("tblFieldLogNOAUTO#")
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 基础路径可按需调整，当前配置与你原有代码路径一致
    folder = "C:\users\ndemos\ONEDRIVE\Documents"
    ' 自动创建不存在的基础路径
    If Not fso.FolderExists(folder) Then
        fso.CreateFolder folder
    End If
    
    With table
        Do Until .EOF
            ' 读取两级文件夹名称，过滤非法字符
            PKey = ReplaceIllegalChar(!Engine.Value)
            P2Key = ReplaceIllegalChar(!TestType.Value)
            
            ' 创建两级文件夹
            Eng_TestFolder = folder & "\" & PKey
            If Not fso.FolderExists(Eng_TestFolder) Then
                fso.CreateFolder Eng_TestFolder
            End If
            Eng_TestFolder = Eng_TestFolder & "\" & P2Key
            If Not fso.FolderExists(Eng_TestFolder) Then
                fso.CreateFolder Eng_TestFolder
            End If
            
            ' 生成导出文件名，这里用TimeDateTeam字段+时间戳避免重复，可按需调整
            fileName = Eng_TestFolder & "\" & ReplaceIllegalChar(!TimeDateTeam.Value) & "_" & Format(Now(), "yyyyMMddHHmmss") & ".txt"
            
            ' 写入所有字段的字符串值到txt文件
            Set outputFile = fso.CreateTextFile(fileName, True)
            For Each fieldItem In .Fields
                ' 跳过附件类型字段（如果有的话）
                If fieldItem.Type <> dbAttachment Then
                    outputFile.WriteLine fieldItem.Name & ": " & Nz(fieldItem.Value, "")
                End If
            Next
            outputFile.Close
            
            ' 移动到下一条记录
            .MoveNext
        Loop
        .Close
    End With
    
    ' 释放对象
    Set outputFile = Nothing
    Set fso = Nothing
    Set table = Nothing
    Set database = Nothing
    
    MsgBox "导出完成！"
End Sub

' 辅助函数：过滤文件名/文件夹名中的非法字符
Function ReplaceIllegalChar(str As String) As String
    Dim illegalChars As Variant
    Dim i As Integer
    illegalChars = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
    For i = LBound(illegalChars) To UBound(illegalChars)
        str = Replace(str, illegalChars(i), "_")
    Next
    ReplaceIllegalChar = str
End Function

注意事项 #

• 代码默认将每条记录导出为独立的txt文件，每个文件内按「字段名: 字段值」格式存储所有字符串类型字段的内容，可根据需要调整导出格式
• 新增了非法字符过滤逻辑，避免字段值包含特殊字符导致创建文件夹、写入文件失败
• 改用FileSystemObject处理文件夹与文件操作，比原生Dir+MkDir组合更简洁，不需要逐层判断路径是否存在
• 如果需要将多条记录合并到同一个文件，可调整文件创建与写入的逻辑位置

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