数据驱动在QTP中的运用(三) - 使用ADODB导入EXCEL数据文件
2007-09-15 11:16
253 查看
前面介绍的是直接使用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
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
相关文章推荐
- 数据驱动在QTP中的运用(四) - 使用SQL数据库
- 数据驱动在QTP中的运用
- 数据驱动在QTP中的运用
- 数据驱动在QTP中的运用(二) - 自定义EXCEL文件
- QTP的那些事--在QC中importsheet方式导入excel数据驱动
- 数据驱动在QTP的运用
- 数据驱动在QTP中的运用(一) - 自定义TXT文件
- Hbase 学习(十一)使用hive往hbase当中导入数据
- Oracle10g 数据泵导入命令 impdp 使用总结
- mysql中使用load data命令批量数据导入
- 使用SQL Loader导入大量数据,避免使用SQL频繁写库
- 使用SharedPreference来存储一个变量,用来记录是否已经导入了SQLite数据
- Oracle sqlldr导入数据使用默认值日期
- mysqlimport工具的使用帮助文档(mysql导入csv数据,mysql备份数据恢复)
- 使用sqlldr将文件中的数据导入到数据库
- 使用sqlldr导入文本数据到oracle
- selenium-Java-使用csv文件进行数据驱动-中文乱码
- 使用T-SQL导入多个文件数据到SQL Server中
- 使用navicat工具将oracle数据导入到mysql
- [导入]Silverlight 2 (beta1)数据操作(5)——使用LINQ to SQL进行数据CRUD操作(上)