Dim Cnn作賓語,Rs作賓語
set Cnn = CreateObject(" adodb . connection ")
set Rs = CreateObject(" adodb . recordset ")
如果Cnn。陳述然後連接關閉
Cnn。Open "Provider=Microsoft。Jet . OLEDB.4.0Persist安全信息= False數據源=F:\123.mdb "
盧比打開“select * from[table name]where marker = ' s '”,CNN,1,3。
【A1】。copy from記錄集Rs
End Sub註意自己修改表名和文件路徑。最後壹句話的意思是將查詢到的記錄復制到[A1]單元格開頭的區域。