致力于测试团队建设和自动化测试开发,欢迎有兴趣者一起研究讨论
一个QTP中用ADO操作Excel的例子
上一篇 /
下一篇 2008-07-09 21:58:55
/ 个人分类:QTP
51Testing软件测试网%LTo/e|q"{TestADOExcel51Testing软件测试网iJ:K'e"|*nu
a vl&DhA-}0Sub TestADOExcel
3PxZ@6mo051Testing软件测试网/bTvnXj
b ' 创建ADO
4\/t
Q6y2_OL01L9D$} F
HX0Set conn= createobject("ADODB.Connection")
R)~C+S+f0S2p
g0!z+c,z.E%j"`N6j"pA0' 打开链接 51Testing软件测试网,D;dp@4io&mI
51Testing软件测试网v[4r;@+Mconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\CNJ\QNAP自动化测试项目\MyTest\ADOExcel\Data\ADOExcel.xls;Extended Properties=Excel 8.0"
Sr!Y$@sPf0zS?TK'X L}0o0 ' 查询
Ca'ga8k[D0&V ig/f9Q~8]/Y)I'Y0sql= "SELECT * FROM [ADOExcel$]" 51Testing软件测试网5_Se3};u(z/ro[j
1jVi;J?*H&WU4^0Set RecSet = conn.Execute(sql)
!nqT%p{]l f8h%tI051Testing软件测试网}0HLu+WRecSet.MoveFirst 51Testing软件测试网;o:yaoD4Uuf0tn+c
ZW2S,`P0While Not RecSet.EOF
0A?7ccoY%G$F"j0:gDYfbqO0Msgbox RecSet.Fields("username").Value & " , " & RecSet.Fields("password").Value
*}1W"Os`,Q uj x$V0N gD!wSpP!n SmF4d0RecSet.MoveNext 51Testing软件测试网jf+?j-y(^?i
Bm]B:r"h5\8[
@m7F`L0Wend
4Acb*N$`IO0;hL`"f^,\_#A3BGc0 ' 插入
s6UPI,y[.v [f051Testing软件测试网#de8qI6Asql = "insert into [ADOExcel$] Values('aaa','bbb')"
MU(aB"qTk0