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