从外部Excel中读取数据到QTP中
2010年12月07日 码农之路 6,559 次浏览
使用QTP进行自动化测试时，对于测试数据可存放在Excel文件中，再在测试脚本中编写VBS脚本将数据读取到QTP中，如下：
’新建Data.xls文件，将该文件Sheet1标签页中的内容传到QTP的Global表中
datatable.ImportSheet “D:\Data.xls”,”Sheet1″,”Global”
Dim dtvalue,dtsheet
’设置Global为当前使用的Sheet页
set dtSheet = datatable.GetSheet(“Global”)
’循环赋值
for i = 0 to dtsheet.getrowcount
’循环获取Global页的值
dtvalue = datatable(“SelectItem”,”Global”)
’将每次获取的值写入到页面选择框billCountry中
Browser(“Book a Flight:Mercury”).page(“Book a Flight:Mercury”).WebLIst(“billCountry”).Select dtvalue
dtsheet.setnextrow
Next
’清除Global表中数据
datatable.ImportSheet “D:\Data.xls”,”Sheet2″,”Global”
这样就可以实现将excel中的数据读取到QTP的datatable中，在运行时可方便的将datatable中的数据取出来进行测试。
>>> Hello World <<<
这篇内容是否帮助到你了呢？
如果你有任何疑问或有建议留给其他朋友，都可以给我留言。