QTP导入EXCEL文件

找了很久，结合资料和VB。终于可以从EXCEL中读入数据51Testing软件测试网3X0rF ?'y%W(g

Dim conn,rst,filename51Testing软件测试网B ^]6I5X,~ICtpz$D
Dim var51Testing软件测试网RwR^(Rl`
filename="E:\test.xls"51Testing软件测试网(w7_x/R{I
Set conn= createobject("ADODB.Connection")51Testing软件测试网C0inqJ I*gZq
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&filename&";Extended Properties='Excel 8.0;hdr=yes'"
EdBE.s wSD0s0Set rst= createobject("ADODB.Recordset")51Testing软件测试网MT0p'?\a-a(x
rst.Open "select  *   from [Sheet1$] " ,conn,1,151Testing软件测试网bxtx#Rk
result = rst.RecordCount
#t,h'FdYO0msgbox "RecordCount = "&result51Testing软件测试网"x2CL+Tr)c
 While Not rst.EOF 
O8J8EpWa0  var = rst.fields("a")
0{(U)bOsS.U}0  msgbox "Data="&var
Z@x#Kl D;i*J pZr7Q0      rst.MoveNext          
#jlF6`R~%i6]`)n };B0   Wend
l[(tLD/H0rst.close51Testing软件测试网ci/I8{d6ZlZZ%_
Set rst=nothing

 51Testing软件测试网'ey pP:J6k