ms-access - 将 MS Access VBA 中表中的单列写入 .txt 文件

Question

这是我第一次在这里发布问题，但我几乎总是通过搜索该站点得到很好的答案。我试图找出是否有更好的方法来加快我在 Access .txt 文件中编写表列的过程。这是我的代码，它可以工作，但速度较慢。编写大约 7000 个项目大约需要 45 秒。

lsFileName2 = "E:\DOI_Inventory2\SyncData\EquipUser.txt"
LiFileNumb = FreeFile

SysCmd acSysCmdSetStatus, "Updating User Equipment List"

Open lsFileName2 For Output As LiFileNumb
    With rst
        Do While Not .EOF
            Write #LiFileNumb, ![EqUserFile]
            .MoveNext
        Loop
    End With

dbs.Close
Close LiFileNumb

我是 IT 领域的新手，因此非常感谢任何帮助。谢谢

补充一下，实际查询没问题。我已经检查过了，速度非常快。

Answer 1

创建一个查询，用一个名字保存它，然后使用TransferText将查询数据导出到您的文本文件。

因此，假设您有一个名为 qryExportMe 的 SELECT 查询，它可以正确返回表的列数据...

SELECT EqUserFile
FROM YourTable;

...请引用此 TransferText 示例并根据您的需要进行调整。

DoCmd.TransferText TransferType:=acExportDelim, _
    Tablename:="qryExportMe", _
    FileName:="E:\DOI_Inventory2\SyncData\EquipUser.txt", _
    HasFieldNames:=True

在该链接页面或从 Access 的内置帮助系统中检查 TransferText 选项。

请注意，您不需要包含选项名称。我添加它们是为了帮助您了解哪个是哪个。

如果这种方法能够充分加快您的导出操作，我认为这是因为 Access 将任务作为单个基于集合的文件写入来处理。您的记录集方法需要 Access 一次处理一行……这种方法被称为 RBAR(逐行痛苦)的原因之一是因为它们通常非常缓慢。