QTP,以数据库的形式访问Excel

通常，我们与Excel的交互，是通过创建Excel对象的方式：

Set ExcelApp = CreateObject("Excel.Application")

 

但是在需要处理格式规范、数据量大的数据表的时候，不妨采取数据库的操作方式，使得操作更高效、灵活。

把Excel表格的第一行作为字段名，其余行作为数据项。

 

范例代码：

'创建连接字符串

Function ConnetString(FilePath)
   ConnetString="Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&FilePath&";Extended Properties='Excel 8.0;hdr=yes'"
End Function

 

'创建连接

SQL = "select  *  from [Sheet1$]"

 Set Conn= createobject("ADODB.Connection")
 Set RST = createobject("ADODB.Recordset")
 Conn.Open  ConnectString("c:/data.xls")
 RST.open SQL ,Conn_Environment,2,2

 

'RST即为查询返回的结果集

'移动游标至顶行

RST.MoveFirst

 

'移动游标至下一行

RST.MoveNext

 

'更新结果集并保存到Excel

RST("Username").value = NewUser

RST.update

 

'关闭连接

RST.Close

Conn.Close

Set RST= Nothing

Set Conn = Nothing