怎么把 SQL数据库的内容导入到EXCEL中，求代码

Question

最好是一个宏代码，方便我插入到按钮中去，需要时按一下，就能更新到最新的了。
SQL服务器名称 ABCDFF
账号 SA
密码 SA666666
库名 UFTData843400_002018
表名 eap_EnumItem.odc
导入到Excel的 工作表名 颜色自由项连接SQL 是Sheet2 该表没有其他内容，专用。

Answer 1

网页链接

然后再使用Worksheets(2).Range("A1").CopyFromRecordset rs

把rs换成recordset对象

追问

不会，看不懂哦。您帮个忙，就直接帮我替换了吧。
让我复制黏贴就可以

追答

ConnectStr="Provider=SQLOLEDB;Data Source=ABCDFF;DATABASE=UFTData843400_002018;UID=SA;pwd=SA666666"
Dim conn as new ADODB.Connection conn.open ConnectStr sqlstr="select * from eap_EnumItem.odc"
set rs=new ADODB.Recordset rs.open sqlstr,conn,1,3 Worksheets(2).Range("A1").copyfromrecordset rs

ConnectStr="Provider=SQLOLEDB;Data Source=ABCDFF;DATABASE=UFTData843400_002018;UID=SA;pwd=SA666666"
Dim conn as new ADODB.Connection
conn.open ConnectStr
sqlstr="select * from eap_EnumItem.odc"

set rs=new ADODB.Recordset
rs.open sqlstr,conn,1,3
Worksheets(2).Range("A1").copyfromrecordset rs

上面的缺了几个回车

追问

你好，提示 无效外部过程
"Provider=SQLOLEDB;Data Source=ABCDFF;DATABASE=UFTData843400_002018;UID=SA;pwd=SA666666"

追答

开头加上sub aaa()结尾加上end sub

追问

追答

工具――引用，找到microsoft activeX data object并勾选

追问

嗯，可以了。万分感谢。