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

h,JEy
l;Qg0    昨天遇到这个问题.自己也有点迷茫,在51上发帖后得到高人指点,在这里我将代码写出来,留个足迹,呵呵,谢谢风过无痕.

$S6Ohz_0------------------

7y(L7h K7uX0Set excelObj = CreateObject("Excel.Applicaiton") '创建一个对象

xCOu3f.uG/C0xlsUrl = "C:\QTP\0110\sql-excel-qtp\data.xls"  '指定一个已经存在的XSL文件路径51Testing软件测试网pBc)t$J-q

excelObj.workbooks.open(xlsUrl)    '打开EXCEL51Testing软件测试网$\~xoN&@)i

"PYD+v"U%o)J/N2WU0Set sheetNew = excelObj.sheets.item(2)  '设置将数据放在EXCEL中的那一页上(索引从１开始)51Testing软件测试网2Z;Ftg_I1Mq

xz&bE+n@db'YN%l0'相关的数据库操作

LPq!z(G `)~1GY0Set conn = CreateObject("adodb.connection") set rs = createobject("adodb.recordset") conn.open "Provider=SQLOLEDB.1;Password=qaqc;Persist Security Info=True;User ID=test;Initial Catalog=test;Data Source=192.168.0.53" sql="select * from test" rs.open sql,conn51Testing软件测试网K;R5cN:],X

Dim i while not rs.eof

    user_id = rs("user_id").value51Testing软件测试网%v&p;j!JenS

1Y*i0X-_)D h!J7?5a4M0    user_name = rs("user_name").value51Testing软件测试网#Ue8c1O]Yu.~0f

    sheetNew.cells(i+1,1).value = user_id　　'列付值

    sheetNew.cells(i+1,2).value = user_name　　'列付值51Testing软件测试网+O\)WC ^

l~)B$a/C8p(G/g0i = i + 1

&wJ-k/P!Ia_2X)fQ~.Q0    rs.movenext

v7x'D5D)mtF8G0wend

#G$gH)HC$y:AT0excelObj.activeworkbook.saveas "C:\QTP\0110\sql-excel-qtp\data.xls"　　'保存数据

excelObj.quit　　　　'关闭对象51Testing软件测试网Vb\P(Da,u

Hq*zr(k,j0set excelObj = nothing　　'清空对象51Testing软件测试网r"@x|`#VaPl

rs.close　　　　'关闭数据库连接操作51Testing软件测试网!m+y esk:Qpc]8i

set rs=nothing

(^D+he},R B0h:?0conn.close51Testing软件测试网F3`I0g;B0i"Qh

/_3V{m
akw ~0set conn = nothing

#|P#d'hS.ss#X0 51Testing软件测试网E#E;o!I%_oh#G"Q0o

－－－－－－－－－－－－这就是导出到ＥＸＣＥＬ的全部过程：），后面如果要用到这些数据的话，直接导入进来就可以了51Testing软件测试网o)Id edq