如何在EXCEL中使用vba读取access数据？

Bluelost

代码如下
Set conn = CreatObject("ADODB.Connection")
conn.connectionstring = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\line.mdb"
conn.Open

Dim rs As New ADODB.Recordset
rs.Open "select 名称 from linespe"
Dim i As Integer
i = 1
Do While Not rs.EOF
Cells(i, 1).Value = rs("名称")
rs.movenext
i = i + 1
Loop
rs.Close
conn.Close

总在 CreatObject("ADODB.Connection")和ADODB.Recordset处提示过程或函数未定义。
有人说在使用ADO前要先引用，但我引用了如下几个还是不行
visual basic for application
microsoft excel 11.0 object library
OLE Automation
microsoft office 11.0 object library
microsoft ActiveX Data Objects 2.8 library
microsoft ActiveX Data Objects Recordset 2.8 library
microsoft ADO Ext. 2.8 for DDL and Security

请问要怎么弄呀

Bluelost

没有人指点迷津吗

老鬼

你前面的句子用Set conn = CreatObject("ADODB.Connection")，后面的用Dim rs As New ADODB.Recordset。你干脆把后面的改成SET RS=CreatObject("ADODB.RECORDSET")，就用不着管ADO有没有被引用了。

另外EXCEL中好像有COPYRECORDSET之类的方法可以直接复制记录集，用不着一个一个写入。

charlieyoung

如果access有密码如何写

cola

conn.connectionstring = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\line.mdb;password=123"

lycxiaolei

conn.connection.open()

cheungws

這個很有用 謝謝!!