Excel VBA用ADODB访问access的问题

olderdream2007@

下面的EXCEL VBA访问ACCESS（accdb格式），不成功，请高人指点下

Sub getdatafromaccess()
Dim conn As ADODB.Connection
Dim str As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open "provider=microsoft.jet.oledb.12.0;data source=" & ThisWorkbook.Path & "\" & "wt.accdbersist Security Info=False"
Set str = conn.Execute("select * from a")
ActiveSheet.Range("a2").CopyFromRecordset str
End Sub



如果ACCESS是旧格式的mdb,则连接字符稍微改动下就可以了，不明白上面的代码为何不成功
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\" & "wt.mdb"

olderdream2007@

错误提示 如上，搞不懂了  {:soso_e127:}请高人帮忙指点一下  谢谢了

roych

microsoft.jet.oledb.12.0用错了
如果是2007版本，应该是：
microsoft.ace.oledb.12.0
如果是2003版本则是：
microsoft.jet.oledb.4.0

olderdream2007@

roych 发表于 2015-2-10 09:05
microsoft.jet.oledb.12.0用错了
如果是2007版本，应该是：
microsoft.ace.oledb.12.0

谢谢指点 明白了

ak47ok

每次回帖、谢谢！辛苦了。