简而言之，我有一个Excel文件，其中A，B，C列为A，其中A为“ ID”。在Access文件中，我有一些列，其中之一是“ ID”。 每周，Access和Excel中的数据将在无与伦比的时间点进行更新（新行将在下面添加）。
这是一个例子： Excel文件：
ID |日期|出价 访问文件：ID |中标|中标人
问题：：如何在Excel文件的A，B，C列上更新新数据时自动执行该过程，它将立即在列“ {{1 }}”，然后将Excel文件中“中标”和“中标”列的值输出到Excel上的D，E，...列？
仅供参考，我正在考虑编写ID代码，但收到错误消息“无效密码”。我是VBA的新手，所以我只是将现有代码复制到Internet上的某个地方……这是行不通的。因此，我真的需要一些说明从头开始构建它。谢谢！！
p / s：我的笔记本电脑使用MS Office Professional Plus2013。代码中的列顺序反映了真实的数据库，因此您不必为此担心。
我尝试如下编写VBA代码...
VBA ==>错误消息“ Sub ddd()
Dim wj As Workspace
Dim db As Database
Dim rs As Recordset
Set wj = CreateWorkspace("", "admin", "", dbUseJet)
Set db = wj.OpenDatabase("R:\Auction\Price Trend.accdb")
stConn = "Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=R:\Auction\Price Trend.accdb" & stDB & ";" _
& "Jet OLEDB:Database Password=Reauction"
cnt.Open stConn
For Each ce In Range("X3:X" & Cells(Rows.Count, 1).End(xlUp).Row)
Set rs = db.OpenRecordset("select [Auction results].[Total Cost in : USD], [Auction results].[unit price], [Auction results].[Winner] from [Auction results] where [Lot Name] = '" & ce.Value & "'")
ce.Offset(0, 6).Value = rs.Fields("Winning Lot Bid")
ce.Offset(0, 8).Value = rs.Fields("Winning Unit Bid")
ce.Offset(0, 7).Value = rs.Fields("Winning Bidder")
Set rs = Nothing
Next ce
Set db = Nothing
Set wj = Nothing
End Sub
”