Office中国论坛/Access中国论坛

标题: 如何在EXCEL中使用vba读取access数据？ [打印本页]

作者: Bluelost 时间: 2006-8-2 23:23
标题: 如何在EXCEL中使用vba读取access数据？
代码如下
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 时间: 2006-8-3 18:13
没有人指点迷津吗

作者: 老鬼 时间: 2006-8-10 16:30
你前面的句子用Set conn = CreatObject("ADODB.Connection")，后面的用Dim rs As New ADODB.Recordset。你干脆把后面的改成SET RS=CreatObject("ADODB.RECORDSET")，就用不着管ADO有没有被引用了。

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

作者: charlieyoung 时间: 2007-1-27 23:57
如果access有密码如何写

作者: cola 时间: 2007-1-30 15:43
conn.connectionstring = "

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

作者: lycxiaolei 时间: 2007-2-8 23:44
conn.connection.open()

作者: cheungws 时间: 2007-9-22 20:08
這個很有用謝謝!!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)