我想通过excel vba 把SQL SERVER的数据导入到excel

[yiran115]

各位，急求 代码
用途：通过execl vba 把 SQL SERVER 的部分数据导入到excel 中。
操作的时候只需点击excel 的按钮就可以得到数据了。
谢谢了 。

[yiran115]

拜托大家帮帮忙啊

[Ningyu]

'给按钮单击事件增加下面的代码

dim dbcon as adodb.connection
dim dbrec as adodb.recordset
dim dbsql as string
dim i as long
set dbcon = new adodb.connection
set dbrec = new adodb.recordset

dbcon.open 这里是SQL SERVER连接字串，网上可以找到，具体看你的连接方式，是ODBC 还 OLEDB等

dbsql="select * from tables where 条件"

dbrec.open dbsql,dbcon,,,

i=1

if dbrec.recordcount()>0 then
do while not dbrec.eof()
sheet1.cells(i,1)=dbrec(0) '这里的I是行号，1,2,3是你要取出的字段，可以根据需要增加
sheet1.cells(i,2)=dbrec(1)
sheet1.cells(i,3)=dbrec(2)
i=i+1
loop
endif

dbrec.close
dbcon.close
set dbrec=nothing
set dbcon=nothing
msgbox "共导入:" & i &"条记录"

[wang405]

哦,Excel里有专门获取其他数据库的功能.在菜单
数据/导入外部数据/导入数据/然后创建数据源/选sql数据库/下一步/填入数据服务器名称及口令/最后选择数据库及表就可以获取数据了。