0

我写了一个 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
4

1 回答 1

0

我从不在附件字段中存储文件。相反，我会将文件的绝对路径存储在表中，然后使用 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
于 2019-04-11T21:22:53.790 回答