|
'从外部Excel中读取数据到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"
用例中定义了两个变量im dtvalue,dtsheet
为什么set dtsheet=datatable.GetSheet ("Global")中不加Set就报错,而另一个变量dtvalue=datatable("SelectItem","Global")加了Set却会报错。
[ 本帖最后由 centurystone 于 2008-7-14 09:23 编辑 ] |
|