51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2758|回复: 7
打印 上一主题 下一主题

[原创] 从外部Excel中读取数据到QTP中

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-10-30 15:54:19 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
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控件已经在对象库中了

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

8#
发表于 2008-10-31 11:31:00 | 只看该作者
Debug看下代码执行过程中去select的item值是什么
回复 支持 反对

使用道具 举报

该用户从未签到

7#
 楼主| 发表于 2008-10-31 11:06:52 | 只看该作者
还是相同的错误,下不去哎

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2008-10-31 10:49:34 | 只看该作者
用dtvalue=DataTable.Rawvalue("SelectItem","Global")
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2008-10-31 10:14:22 | 只看该作者
我在外部Excel中输入的为
这些数据在WebList("billCountry")中是存在的

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2008-10-31 09:51:37 | 只看该作者

回复 1# 的帖子

貌似不是说控件不存在,正如楼上的说得,好象是说datatable中的数据在weblist中不存在
回复 支持 反对

使用道具 举报

  • TA的每日心情
    难过
    2015-4-23 14:35
  • 签到天数: 3 天

    连续签到: 1 天

    [LV.2]测试排长

    3#
    发表于 2008-10-31 01:25:32 | 只看该作者
    确定你输入在DataTable中的数据是否是WebLIst中存在的数据,否则就会报这个错。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    2#
     楼主| 发表于 2008-10-30 17:18:15 | 只看该作者
    没人回啊,顶下
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-9 01:59 , Processed in 0.073960 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表