Access 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