决定搬家到51博客了..
数据驱动在QTP中的运用(三) - 使用ADODB导入EXCEL数据文件
上一篇 /
下一篇 2007-09-18 08:39:38
/ 精华(1)
/ 个人分类:QTP
前面介绍的是直接使用EXCEL导入数据文件,在这里介绍使用ADODB导入EXCEL数据文件的方法。操作思想基本上是一致的,就是链接数据文件的方法不同。
Option Explicit
Dim conn, rst, fileName, strConn
Dim var, i
fileName = Environment.Value("TestDir") & "\test.xls"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info = False;"
strConn = strConn & "Data Source = " & filename & ";Extended Properties='Excel 8.0'"
Set conn = CreateObject("ADODB.Connection")
conn.Open strConn
Set rst = CreateObject("ADODB.RecordSet")
rst.Open "select * from [Sheet1$]", conn, 1, 1
Print rst.RecordCount
i = 0
'读取Excel表格时,自动从第二行开始读起,将第一行作为Title
While Not rst.EOF
i = i + 1
Print "LINE " & CStr(i) & " : " & rst.Fields(0).Value & " " & rst.Fields(1).Value
rst.MoveNext
Wend
rst.Close
Set rst = Nothing
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1786102
收藏
举报
TAG:
excel
vbscript
驱动
软工与管理
实例
自动化测试
qtp
自动化
数据
qc
读写
数据驱动
QTP