|
导入的Excel的数据,执行的次数问题?
datatable.ImportSheet "D:\aa.xls","Global","Global"'第一个global是原excel表的sheet名称,第二个是QTP里面的sheet的名称。
Dim dtsheet
Set dtsheet=datatable.GetSheet("Global")'设置qtp中excel对象实例。
'i=dtsheet.GetRowCount
'msgbox i
Browser("Browser").Page("Find a Flight: Mercury").WebList("passCount").Select "4"
Browser("Browser").Page("Find a Flight: Mercury").WebList("fromDay").Select "20"
Browser("Browser").Page("Find a Flight: Mercury").WebList("toPort").Select "Frankfurt"
Browser("Browser").Page("Find a Flight: Mercury").Image("findFlights").Click 64,11
Browser("Browser").Page("Select a Flight: Mercury").Image("reserveFlights").Click 60,9
For i=0 to 3
' wait 1
Browser("Browser").Page("Book a Flight: Mercury").WebEdit("name:=passFirst"&i).Set DataTable("li", dtGlobalSheet)'li是导入的excel表第一行的数据,一般设置为列的名称。
Browser("Browser").Page("Book a Flight: Mercury").WebEdit("name:=passLast"&i).Set DataTable("ww", dtGlobalSheet)
'dtsheet.SetNextRow'下一行。
'wait 1
Next
我导入的是四行数据,是不是一定会执行四次呢? |
|