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:

 

评分:0

我来说两句

日历

« 2024-03-27  
     12
3456789
10111213141516
17181920212223
24252627282930
31      

我的存档

数据统计

  • 访问量: 2027
  • 日志数: 3
  • 建立时间: 2017-07-03
  • 更新时间: 2017-07-04

RSS订阅

Open Toolbar