多测师是一家拥有先进的教学理念,强大的师资团队,业内好评甚多的接口自动化测试培训机构!

17727591462

联系电话

您现在所在位置:接口自动化测试培训 > 新闻资讯

QTP读取Excel数据的方法-自动化测试

更新时间:2022-05-31 09:21:47 作者:多测师 浏览:52

  在构建自己的测试框架时,或者是从Excel读入外部数据进行检查时都要用到Excel的COM对象编程方法,下面脚本中的ReadFile函数就实现了这样的功能,首先创建Excel应用程序对象,然后打开Excel文件,把Excel数据读取到一个数组中。

QTP读取Excel数据的方法-自动化测试

  arrRange = ReadFile("D:\QTP\MyWork\ReadExcelFileTest1\ObjectTree.xls","Tree")

  'Msgbox UBound (arrRange,1)

  'Msgbox UBound (arrRange,2)

  ' 读取其中一个单元格的数据

  Msgbox arrRange(3,1)

  ' 输入:

  ' sFileName: Excel文件

  ' sSheetName:表单名称

  ' 返回:

  ' 包含Excel数据的数组

  Function ReadFile(sFileName,sSheetName)

  Dim oExcel

  Dim oSheet

  Dim oRange

  Dim arrRange

  On Error Resume Next

  ' 创建Excel应用程序对象

  Set oExcel = CreateObject("Excel.Application")

  If err.Number <> 0 Then

  MsgBox "未能初始化Excel" & vbCrLf & _

  "请确保Excel已安装", vbCritical

  Exit Function

  End If

  On Error Goto 0

  On Error Resume Next

  ' 打开Excel文件

  oExcel.Workbooks.Open(sFileName)

  If err.Number <> 0 Then

  MsgBox "未能加载Excel文件" & vbCrLf & _

  "请确保Excel文件路径正确或格式正确", vbCritical

  Exit Function

  End If

  On Error Goto 0

  ' 获取表格的使用范围

  Set oSheet = oExcel.Worksheets(sSheetName).UsedRange

  ' 获取从A列到Z列,从第1行到第1000行的范围i中的所有值

  Set oRange = oSheet.Range("A1:Z1000")

  '把Excel数据转换到数组

  arrRange = oRange.Value

  ' 关闭工作簿

  oExcel.WorkBooks.Item(1).Close

  ' 退出Excel

  oExcel.Quit

  Set oExcel = Nothing

  ' 返回包含Excel数据的数组

  ReadFile = arrRange

  End Function

  以上内容为大家介绍了自动化测试中的QTP读取Excel数据的方法,本文由多测师亲自撰写,希望对大家有所帮助。了解更多自动化测试相关知识:https://www.aichudan.com/xwzx/

联系电话

17727591462

返回顶部