Access VBA如何从附件字段读取txt文件

Sub ReadTxtFileFromAttachmentField()
    Dim rst As Recordset
    Dim fs As New FileSystemObject
    Dim txtFile As TextStream
    Dim filePath As String
    
    Set rst = CurrentDb.OpenRecordset("YourTableName") '将"YourTableName"替换为你的表名
    rst.MoveFirst
    
    Do Until rst.EOF
        If Not IsNull(rst!AttachmentFieldName) Then '将"AttachmentFieldName"替换为你的附件字段名
            For Each att In rst!AttachmentFieldName.Attachments
                filePath = "C:\Temp\" & att.FileName '将文件保存到指定路径，根据需求进行修改
                
                Set txtFile = fs.OpenTextFile(filePath, ForReading)
                Debug.Print txtFile.ReadAll '将txt文件内容输出到Immediate窗口
                txtFile.Close
                
                '在这里可以根据需求进行进一步处理
                
                Set txtFile = Nothing
            Next att
        End If
        
        rst.MoveNext
    Loop
    
    Set fs = Nothing
    rst.Close
    Set rst = Nothing
End Sub