Question

我想知道的是如何让vb应用程序同时读取excel文件和访问数据库，让它们比较字段并填充空字段。

例如：

Excel包含以下列和字段：

地址，邮政编码

avenue no.30 ny，null（邮政编码没有价值）

Access包含以下列和字段：

地址，邮政编码

avenue no.30 ny，2700-168

如何让访问数据库填充excel文件中的字段？

提前致谢

Answer 1

我认为你想在这个例子中调用Excel中的代码。您可以尝试类似这样的伪代码示例：

Sub foo（）

 Dim db as DAO.Database
 Dim rs as Recordset
 Dim ws as Worksheet
 Dim i as Long

 Set db = Workspaces(0).OpenDatabase("C:\MyPath\MyDatabase.mdb", ReadOnly:=True)
 Set rs = db.OpenRecordset("Name of DB Table")
 Set ws = ActiveSheet

 i = 2
 ws.Range("A1") = "Address"
 ws.Range("B1") = "Postal Code"

 rs.MoveFirst
 Do While Not rs.EOF
      ws.Range("A" & i) = rs("Table Address Column Name")
      ws.Range("B" & i) = rs("Table Postal Code Column Name")
      rs.MoveNext
      i = i + 1
 Loop

 rs.close
 db.close

 Set db = Nothing
 Set rs = Nothing
 Set ws = Nothing

End Sub

比较excel和访问和填充之间的字段

1 个答案: