QTP中将数据库的数据导入到EXCEL

Set excelObj = createobject("Excel.Application") '创建一个excel对象
f.V%h3P8L w0w6K
p+i/H0excelObj.workbooks.open("c:\data.xls") '打开本地的Excel文件
*a0R5VX J,^0Set sheetNew = excelobj.sheets.item(1)'' 设置将数据放在 EXCEL 中的那一页上 ( 索引从１开始 )51Testing软件测试网iE_3F_ K)@ x1\1Y GW
Const strconn = "Provider=SQLNCLI.1;Password=sasasa;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=."'连接数据库51Testing软件测试网)cL:}.KY+g!g}
Set conn=createobject("Adodb.Connection")
][Z)tT ?&sRN|0Set res=createobject("Adodb.recordset")51Testing软件测试网i/co$P+MRD
sql = "seleect * from  login"51Testing软件测试网XOI1LuV;RJ f
conn.open strconn51Testing软件测试网.Dh,V$`G*j0U
res.Open sql, conn   'sql为查询语句
[] B5v'hu9r0res.MoveFirst()
:f9GN,x8If yq(bj0Dim i51Testing软件测试网%qDj&{&B*^
Dim j51Testing软件测试网j3n-LtG
j=1
~$Bz|^3|0Do while not res.eof51Testing软件测试网[y\%h(bI.l"s7dI
For i=0 to res.Fields.count-151Testing软件测试网,h
|
P)pS#r`E
            sheetNew.cells(j,(i+1)).value=res.fields(i).value51Testing软件测试网C ld$zpi
Next
M@o b"@#H5`0j=j+151Testing软件测试网r?qj5RNnG8hx
res.movenext()
2yh [\9BW6`0Loop             '‘循环取出数据库表中的所有字段的值。51Testing软件测试网Fxe2uUtk
res.close51Testing软件测试网-G,i)c O3_J VZ;q
conn.close51Testing软件测试网\,OSi(]/Dm)}u W5OO
Set res=nothing51Testing软件测试网 Y9m Ep~Z1y
Set conn=nothing
6^.pG}@F9n"m0excelObj.activeworkbook.saveas "c:\data.xls" '在指定目录自动生成Excel文件保存从数据库中取出的数据51Testing软件测试网f:}
j9S}2Iy1E
excelObj.quit ' 关闭对象
BTRB-^0qGx)D0set excelObj = nothing ' 清空对象

~ x6k-ja1n~0