一个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