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

Y ZXY|8CSAK0Set excelObj = createobject("Excel.Application") '创建一个excel对象51Testing软件测试网]c?.c'}0E.LML\
excelObj.workbooks.open("c:\data.xls") '打开本地的Excel文件
7{3mO8h0e~j4f`0Set sheetNew = excelobj.sheets.item(1)'' 设置将数据放在 EXCEL 中的那一页上 ( 索引从１开始 )51Testing软件测试网A} d)d"^@
G
Const strconn = "Provider=SQLNCLI.1;Password=sasasa;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=."'连接数据库
o5S#FXY0Set conn=createobject("Adodb.Connection")51Testing软件测试网!x2@X]u-F"~ ^/Mfo1L
Set res=createobject("Adodb.recordset")
`:X;e(xkd:E.o0sql = "seleect * from  login"

_s
E6rkg}O-kYf0conn.open strconn
_[t$h5n Y/A(a0res.Open sql, conn   'sql为查询语句
3dMW2g)\1b,X0res.MoveFirst()51Testing软件测试网6B?_6Z"u#u n
Dim i
Q!wY2c&k3C
I0Dim j
2K*~*CZ8cl&@0j=1
)n2I4Z|w#w[ rN(A0Do while not res.eof51Testing软件测试网~d4A"FA2Ny
For i=0 to res.Fields.count-1
*^y,QM1U F9a b!HP'k0            sheetNew.cells(j,(i+1)).value=res.fields(i).value
5Ya%o2N!T,|R9e9l#p(q0Next51Testing软件测试网Lk9i9RE7}.Nv8b5~
j=j+1
vYo4TU g:m9I3P|:@E0res.movenext()
c2z8S#Qlxo9t[`0Loop             '‘循环取出数据库表中的所有字段的值。51Testing软件测试网VP5z9u"r(B6l2iHB
res.close
)~"M%n-p#|p0conn.close
SEu,vG G }(j0Set res=nothing
_5D*rzzURH0Set conn=nothing51Testing软件测试网8d-\(kww#x:LDr
excelObj.activeworkbook.saveas "c:\data.xls" '在指定目录自动生成Excel文件保存从数据库中取出的数据51Testing软件测试网CF%l(x\f,O.^LUh
excelObj.quit ' 关闭对象
~bMmX!v_~/lc0set excelObj = nothing ' 清空对象

6HO9~/_"MTmY.i0