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

昨天遇到这个问题.自己也有点迷茫,在51上发帖后得到高人指点,在这里我将代码写出来,留个足迹,呵呵,谢谢风过无痕.M,Eo7[0J H K13871151Testing软件测试网9I P-v x5~K
B*{7j#L

------------------

.mU!O+_(m4UJ1|138711

|VX!g1uF138711Set excelObj = CreateObject("Excel.Applicaiton") '创建一个对象51Testing软件测试网}6Ag4yvU:`J? `

51Testing软件测试网S6wu6A XRo:O

xlsUrl = "C:\QTP\0110\sql-excel-qtp\data.xls"  '指定一个已经存在的XSL文件路径

u1j4jZ+G G&y
OW:|5K13871151Testing软件测试网+R2CCG'RM6[h

excelObj.workbooks.open(xlsUrl)    '打开EXCEL

|;^6d/zN4x"Q/A13871151Testing软件测试网N5e%Z7e*T7d"p9w

Set sheetNew = excelObj.sheets.item(2)  '设置将数据放在EXCEL中的那一页上(索引从１开始)51Testing软件测试网-Q*P bj R5I{!|
edz

/^+dv+|$y138711'相关的数据库操作

M@MQf5d9]13871151Testing软件测试网%T/]A o$Y

Set 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,conn

&`"Ic~9h`
X13871151Testing软件测试网.G+Mf Y9a)^4[

Dim i while not rs.eof

U+Mpr R138711

]2uhO Hd[138711    user_id = rs("user_id").value51Testing软件测试网!yq"d"[qc Gx

51Testing软件测试网1v%CoZ;Do Q

    user_name = rs("user_name").value51Testing软件测试网TI:UU&f$] S

+l.I7v%DA)G9`:|I138711    sheetNew.cells(i+1,1).value = user_id　　'列付值51Testing软件测试网 i%k5n@&`)i*L

N6]8H)l!Oi:n138711    sheetNew.cells(i+1,2).value = user_name　　'列付值51Testing软件测试网4o _ F0Mlc4ya0r9k

6N/cv\Re7j3V138711i = i + 1

{ J%A6q8c13871151Testing软件测试网 YM)t7sD{?x.d%p

    rs.movenext

sx
[q-}4`&k T4W.V138711

Ws6eF[0d\Zl4R&CHx138711wend

9m ~r0`vC F
y13871151Testing软件测试网 X.w1v}&a

excelObj.activeworkbook.saveas "C:\QTP\0110\sql-excel-qtp\data.xls"　　'保存数据51Testing软件测试网iy$y {5o,Dx4v H(|D

] oBNT138711excelObj.quit　　　　'关闭对象

!tuy"` ~5^138711

6iW!Rns5D Y6k138711set excelObj = nothing　　'清空对象

.I
j1UQW1\6["?c13871151Testing软件测试网cMN:E4~5_ G)[

rs.close　　　　'关闭数据库连接操作51Testing软件测试网*he3|-lu:|T

%IM9bT,@ _ w138711set rs=nothing

4K2g6b"m1M8p,c5Z13871151Testing软件测试网K `$aa`8D,p+y

conn.close51Testing软件测试网r)~_ `JF

51Testing软件测试网
E$MI1ZgC*e

set conn = nothing

b'A e2mJb\i138711

8f(Q9Yse8r f;])X138711 

@TCWm;uUa138711

H.lD'm3j)@%~x8?138711－－－－－－－－－－－－这就是导出到ＥＸＣＥＬ的全部过程：），后面如果要用到这些数据的话，直接导入进来就可以