QTP获取外部excel表数据
上一篇 /
下一篇 2017-07-04 18:25:37
/ 个人分类:QTP学习
Sub get_source()
Dim i
Dim filePath '文件路径
Dim ExcleBook '创建excel表格对象
Dim ExcelSheet '创建excel的sheet页对象
Dim myExcleBook ,myExcelSheet
filePath ="E:\QTP\config\测试用例.xlsx"
'创建文本编辑对象
'Set fso=CreateObject("Scripting.fileSystemObject")
'创建excel应用程序对象
Set ExcelBook=CreateObject("Excel.Application")
Set ExcelSheet=CreateObject("Excel.Sheet")
'打开excel文件,确保文件路径和名称正确
Set myExcelBook=ExcelBook.WorkBooks.Open(filePath)
'获取表格的sheet页
Set myExcelSheet=myExcelBook.WorkSheets("Sheet1")
For i=1 to 2
For j=1 To 2
'excel单元下标不是从0开始的!
MsgBox myExcelSheet.cells(i,j)
Next
Next
myExcelBook.quit
End Sub
Call get_source()
收藏
举报
TAG: