【软件自动化测试-QTP实战技能 9】== 从外部excel中读出数据导入到qtp的data中

VBA读取Excel

最新推荐文章于 2017-09-12 17:24:06 发布

原创最新推荐文章于 2017-09-12 17:24:06 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#excel #测试 #action

自动化测试之_QTP 同时被 2 个专栏收录

39 篇文章

订阅专栏

如何开展有效的自动化测试

39 篇文章

订阅专栏

本文介绍了一种使用VBA从指定路径打开Excel文件并读取数据到测试脚本的方法。通过创建Excel对象并利用其属性和方法，可以实现对Excel表格中数据的逐行读取，并将这些数据设置为测试脚本中的参数。

Set Excelobj=createobject("Excel.Application")

excelpath="E:/testQTP"
Excelobj.Workbooks.Open(excelpath) '打开excel的文件

Set newsheet=Excelobj.Sheets.Item(1) '打开excel的sheet

colcount=newsheet.UsedRange.Columns.Count 'Add to Header
For i = 1 To colcount
     param=newsheet.Cells(1,i)
     DataTable.GetSheet("Action1").AddParameter param,""
next

rowcount=newsheet.UsedRange.Rows.Count 'Add to content
colcount=newsheet.UsedRange.Columns.Count

For i = 2 To rowcount
    DataTable.GetSheet("Action1").SetCurrentRow i-1
    For j =1 To colcount
      param=newsheet.Cells(i,j)
      DataTable.value(j,"Action1")=param
    Next
Next

Excelobj.Quit