访问VBA如何从附件字段中读取txt文件

Question

我写了一个R函数，它太长了，即使在memo字段中也无法存储。如果我将它存储在硬盘驱动器中的某个txt文件中，可能有一种方法可以读取它。但是我可以将此txt文件保存在附件字​​段中并使用vb代码读取吗？到目前为止，我得到的最接近的答案如下所示，打印附件的名称，但不是附件中的内容。

Dim dbs As DAO.Database
Dim rst As DAO.Recordset2
Dim rsA As DAO.Recordset2
Dim fld As DAO.Field2

'Get the database, recordset, and attachment field
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tblAttachments")
Set fld = rst("Attachments")

'Navigate through the table
Do While Not rst.EOF

'Print the first and last name
Debug.Print rst("FirstName") & " " & rst("LastName")

'Get the recordset for the Attachments field
Set rsA = fld.Value

'Print all attachments in the field
Do While Not rsA.EOF

    Debug.Print , rsA("FileType"), rsA("FileName")

    'Next attachment
    rsA.MoveNext
Loop

'Next record
rst.MoveNext
Loop

Answer 1

我从不在附件字段中存储文件。相反，我将存储表中文件的绝对路径，然后使用VBA显示或修改文件。

您可以使用以下代码将文本文件的内容打印到控制台。注意：您需要将Microsoft Scripting Runtime引用添加到项目中。

    Dim fso As FileSystemObject
    Dim ts As TextStream
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' use path stored in table vvv here
    Set ts = fso.OpenTextFile(path, ForReading, False, 0)

    Do While ts.AtEndOfStream <> True
        debug.print ts.ReadLine
    Loop

    ts.Close