Vba 在导入TXT以访问时添加字段

在导入过程中，我试图将3个附加字段及其数据添加到.txt文件中。但我不知道怎么做。其中一个字段将包含

Combo5

组合框中引入的日期。另外两个，一个包含“Checked”，另一个包含“ArticleN5”

有人能提供如何实现这一目标的指导吗

提前谢谢大家，
希望你们都平安

这就是我到目前为止所做的：

Private Sub Command0_Click()  

Dim Dates As String  
Dim Path As String  

Dates = Format(Me.Combo5, "yymmdd")  
Path = "C:\Users\alex\Desktop\CGD\20200117\UCP" & Dates & "A_CGD.txt"

DoCmd.TransferText acImportFixed, "UCPYYMMDDA_CGD_SPECS", "teste", PATH, True

End Sub

---

这些字段是否必须添加到TXT文件本身，或者添加到文件导入到的表中？如果只需要将信息添加到表中的字段中，则可以在导入TXT后将表作为记录集打开，并添加其他数据

例如：

Dim rsData as DAO.Recordset
Set rsData = currentDB.openrecordset("TableName", dbtable)
rsData.Movefirst
Do While not rsdata.eof
with rsdata
  .edit
  .field("FieldName") = "Checked"
  .field("FieldName") = comboboxvalue
  .field("FieldName") = value
  .update
end with
rsData.MoveNext

rsdata.close

---

这将使您关闭

感谢您的快速回复：）我需要将这些字段添加到导入文件的表中。你能给我解释一下如何做到这一点吗？更新了答案，并添加了一个代码示例显然缺少了一些东西。我得到一个循环错误。甚至认为我做了一个退出做了任何建议。将“Loop”放在rsData.MoveNext下面。很抱歉。您可以使用

TransferText

将文件导入临时表，然后使用类似于

insert into main_table（col_1，col_2，…，date_introducted）的内容插入主表。选择col_1，col_2，…，'210303'作为从temp_table引入的日期，

或，如果

main_表

不存在，您可以执行

选择col_1，col_2，…，'210303'作为从temp_表引入main_表的日期