VBA DoCmd.TransferText。在访问表中再添加一个字段

Posted 2023-04-19

【中文标题】VBA DoCmd.TransferText。在访问表中再添加一个字段

【英文标题】：VBA DoCmd.TransferText. Add one more field at access table

【发布时间】：2011-05-23 04:02:07

【问题描述】：

我正在使用 DoCmd.TransferText 从文本文件传输到访问数据库表。只是对于在我的访问数据库表中创建的每条记录，除了文本文件行之外，我想为每条记录再添加一个字段，但对于 DoCmd 这似乎是一个约束。有什么办法可以做到吗？

【参考方案1】：

您可以将文本文件导入临时表，然后 在完成的表中运行生成表查询或追加表查询。在查询中通过查询设计中的计算添加所需的字段：

Myfield:Null 或 MyField:IIF(SomeOtherField="M", ...) 等。然后保存查询。

在您的 VBA 中（假设“StagingTable 是您导入文件的位置，并且 AppendStagingTableToWorkTable 是您的追加查询：

DoCmd.TransferText acImportFixed, "My Import Spec", "StagingTable", _
    "C:\TextFile.txt", False
DoCmd.OpenQuery "AppendStagingTableToWorkTable"