一个QTP中用ADO操作Excel的例子

TestADOExcel51Testing软件测试网i
J:K'e"|*nu

a vl&DhA-}0Sub TestADOExcel

  ' 创建ADO  

1L9D$} F HX0Set conn= createobject("ADODB.Connection")    

!z+c,z.E%j"`N6j"pA0' 打开链接  51Testing软件测试网,D;dp@4io&mI

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\CNJ\QNAP自动化测试项目\MyTest\ADOExcel\Data\ADOExcel.xls;Extended Properties=Excel 8.0"

zS?TK'X L}0o0  ' 查询  

&V ig/f9Q~8]/Y)I'Y0sql= "SELECT * FROM [ADOExcel$]"  51Testing软件测试网5_Se3};u(z/ro
[j

1jVi;J?*H&WU4^0Set RecSet = conn.Execute(sql)  

RecSet.MoveFirst  51Testing软件测试网;o:yaoD4Uuf0tn+c

Z
W2S,`P0While Not RecSet.EOF     

:gDYfbqO0Msgbox RecSet.Fields("username").Value & " , " & RecSet.Fields("password").Value     

NgD!wS
pP!n S
mF4d0RecSet.MoveNext  51Testing软件测试网jf+?j-y(^?i

Bm]B:r"h5\8[ @m7F`L0Wend    

;hL`"f^,\_#A3BGc0 ' 插入  

sql = "insert into [ADOExcel$] Values('aaa','bbb')"  

fiM)h;D4{0conn.Execute(sql)    51Testing软件测试网l)G I$[)vS%Q/z.f

m]/Mg5on0' 更新  51Testing软件测试网Z.H+\Y\

sql = "update  [ADOExcel$] set [password]='hello world' where [username]='allen' "  51Testing软件测试网/yJ"R6D5v7[3B:{yb

conn.Execute(sql)       

' 关闭链接  

oB:^Q!n E0F M,mZw0conn.close51Testing软件测试网:``4F,K|*sk1E?

)fN Iu4?{
r8t,d0End Sub51Testing软件测试网0CMNAaz){