用VBA从SQL中提取数据到excel

lrjsd

sub test()                                                                       '定义过程名称

dim i as integer,sht as worksheet

Dim cn As New ADODB.Connection                                '定义数据链接对象，保存连接数据库信息；请先添加ADO引用

Dim rs as new ADODB.recordset

Dim strCn As String ,strSQL as String                              '字符串变量

strCn = "Provider=sqloledb;Server=服务器名称或IP地址;Database=数据库名称;Uid=用户登录名;Pwd=密码;"         '定义数据库链接字符串

strSQL = "select  字段1,字段2 from  表名称　where 条件"                                                                                        '定义SQL查询命令字符串

cn.Open strCn                                                                                                                '与数据库建立连接，如果成功，返回连接对象cn

rs.open strsql,cn

i=1
set sht =thisworkbook.worksheets("sheet1")
do while i<rs.fields.count                                                  '得到列数，
sht.cells(1,i)=rs.fields(i).name                                           ' 可以得到指定列的列名
i=i+1
Loop

sheets("sheet1").[a2].copyfrom recodset cn.execute(strsql)                                 '执行strSQL所含的SQL命令，将记录集的内容返回到sheet1表中
rs.close
cn.Close
end sub

注：
strSQL = "select  字段1,字段2 from  表名称　where 条件"    可以拓展为

strSQL = "select  字段1,字段2 from  表名称　where 某某='" & [a1] & "'

疑问：
我从ＳＱＬ中提出的数据到ＥＸＣＥＬ表中都没有字段名，如何解决？（已解决）

mchscofield

rs.fields.count可以得到列数，
rs.fields(i).name可以得到指定列的列名。

lrjsd

OK,thankyou,已改！