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

'  *******************************************************************************

'  目的:ADO操作Excel例子

 '  输入参数:

'  返回结果:

'  注意事项:

'  作者:陈能技(http://itestware.com)

'  日期:2008-7-7

'  *******************************************************************************

TestADOExcel

Sub TestADOExcel

  ' 创建ADO  

Set conn= createobject("ADODB.Connection")    

' 打开链接  

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

  ' 查询  

sql= "SELECT * FROM [ADOExcel$]"  

Set RecSet = conn.Execute(sql)  

RecSet.MoveFirst  

While Not RecSet.EOF     

Msgbox RecSet.Fields("username").Value & " , " & RecSet.Fields("password").Value     

RecSet.MoveNext  

Wend    

 ' 插入  

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

conn.Execute(sql)    

' 更新  

sql = "update  [ADOExcel$] set [password]='hello world' where [username]='allen' "  

conn.Execute(sql)       

' 关闭链接  

conn.close

End Sub

相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页