我正在处理一个宏,用户通过它输入一个搜索词,用于查询Access数据库。我的问题是,如何将这些记录以单独的行返回到Excel?
例如,数据库包含家庭地址信息。如果用户搜索邮政编码,则选择的记录将进入第1、2、3行,与查询中返回的家庭地址一样多。
下面是一些示例代码-我遗漏的部分被清楚地标记出来了。
感谢大家的帮助!
Sub DatabaseQuery()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim stDB As String, stSQL As String, stProvider As String
D