51Testing软件测试论坛

标题: 从外部Excel中读取数据到QTP中 [打印本页]

作者: shuishixingyu 时间: 2008-10-30 15:54
标题: 从外部Excel中读取数据到QTP中
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","","C:\Documents and Settings\Administrator","open"
Browser("name:=百度一下，你就知道").Page("title:=百度一下，你就知道").Sync
Browser("name:=百度一下，你就知道").Navigate "http://newtours.demoaut.com/"
Browser("name:=Welcome: Mercury Tours").Page("title:=Welcome: Mercury Tours").WebEdit("name:=userName").Set "test"
Browser("name:=Welcome: Mercury Tours").Page("title:=Welcome: Mercury Tours").WebEdit("name:=password").SetSecure "4909303a5aed4e94add116751070aa5284ad"
Browser("name:=Welcome: Mercury Tours").Page("title:=Welcome: Mercury Tours").Image("alt:=Sign-In").Click 0,2
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").Image("findFlights").Click 61,10
Browser("Find a Flight: Mercury").Page("Select a Flight: Mercury").Image("reserveFlights").Click 77,10
Browser("Find a Flight: Mercury").Page("Book a Flight: Mercury").WebEdit("passFirst0").Set "qing"
Browser("Find a Flight: Mercury").Page("Book a Flight: Mercury").WebEdit("passLast0").Set "li"
Browser("Find a Flight: Mercury").Page("Book a Flight: Mercury").WebEdit("creditnumber").Set "1"

DataTable.ImportSheet "E:\资料\QTP PPT\Example\Cycle\Data.xls","Sheet1","Global"
Dim dtvalue,dtsheet
Set dtsheet=DataTable.GetSheet("Global")
For i=0 to dtsheet.GetRowCount
dtvalue=DataTable.Value("SelectItem","Global")
Browser("Book a Flight: Mercury").Page("Book a Flight: Mercury").WebList("billCountry").Select dtvalue
dtsheet.setnextrow
Next
DataTable.ImportSheet "E:\资料\QTP PPT\Example\Cycle\Data.xls","Sheet2","Global"

Browser("Find a Flight: Mercury").Page("Book a Flight: Mercury").Image("buyFlights").Click 64,10

在Browser("Book a Flight: Mercury").Page("Book a Flight: Mercury").WebList("billCountry").Select dtvalue
这句总出现错误，如图[attach]46506[/attach]是怎么回事？
没找出原因，请帮我看下，billCountry控件已经在对象库中了

作者: shuishixingyu 时间: 2008-10-30 17:18
没人回啊，顶下

作者: yangkinki 时间: 2008-10-31 01:25
确定你输入在DataTable中的数据是否是WebLIst中存在的数据，否则就会报这个错。

作者: honghongkeai 时间: 2008-10-31 09:51
标题: 回复 1# 的帖子
貌似不是说控件不存在，正如楼上的说得，好象是说datatable中的数据在weblist中不存在

作者: shuishixingyu 时间: 2008-10-31 10:14
我在外部Excel中输入的为[attach]46526[/attach]
这些数据在WebList("billCountry")中是存在的

作者: peimzh 时间: 2008-10-31 10:49
用dtvalue=DataTable.Rawvalue("SelectItem","Global")

作者: shuishixingyu 时间: 2008-10-31 11:06
还是相同的错误，下不去哎[attach]46528[/attach]

作者: hsjzfling 时间: 2008-10-31 11:31
Debug看下代码执行过程中去select的item值是什么

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)