shuishixingyu 发表于 2008-10-30 15:54:19

从外部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
这句总出现错误，如图是怎么回事？
没找出原因，请帮我看下，billCountry控件已经在对象库中了

shuishixingyu 发表于 2008-10-30 17:18:15

没人回啊，顶下

yangkinki 发表于 2008-10-31 01:25:32

确定你输入在DataTable中的数据是否是WebLIst中存在的数据，否则就会报这个错。

honghongkeai 发表于 2008-10-31 09:51:37

回复 1# 的帖子

貌似不是说控件不存在，正如楼上的说得，好象是说datatable中的数据在weblist中不存在

shuishixingyu 发表于 2008-10-31 10:14:22

我在外部Excel中输入的为
这些数据在WebList("billCountry")中是存在的

peimzh 发表于 2008-10-31 10:49:34

用dtvalue=DataTable.Rawvalue("SelectItem","Global")

shuishixingyu 发表于 2008-10-31 11:06:52

还是相同的错误，下不去哎

hsjzfling 发表于 2008-10-31 11:31:00

Debug看下代码执行过程中去select的item值是什么
页: [1]
查看完整版本: 从外部Excel中读取数据到QTP中