51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1712|回复: 6
打印 上一主题 下一主题

[原创] QTP 对象的参数化的值是否可放到外部excel文件中

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2013-1-15 16:56:46 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 test-yao 于 2013-1-15 16:59 编辑
  1. 新增渠道
  2. DataStr= "d:\data.xls"
  3. Set ExlObj=CreateObject("Excel.Application")
  4. ExlObj.Visible = false ' 设置为true的情况,文档会打开
  5. ExlObj.DisplayAlerts = false
  6. Set book=ExlObj.Workbooks.Open(DataStr)
  7. Set sheet=book.Worksheets("Sheet3")
  8. GetExcelSheetRowsCount=Sheet.UsedRange.Rows.Count
  9. '
  10. '
  11. For i=2 to sheet.usedrange.rows.count

  12. Protocol=ExlObj.WorkSheets("Sheet3").Cells(i,1)
  13. esbform:icePnlTbSet:0:pOadapto=ExlObj.WorkSheets("Sheet3").Cells(i,2)


  14. with Browser("SmartESB 管理监控平台").Page("SmartESB 管理监控平台")
  15. .WebButton("新增").Click
  16. .WebEdit("esbform:icePnlTbSet:0:formLast").Set Protocol
  17. .WebElement("WebTable").Click
  18. .WebList("esbform:icePnlTbSet:0:j_id22").Select "default_channel"
  19. .WebElement("WebTable_2").Click

  20. 能否把(WebCheckBox("esbform:icePnlTbSet:0:pOadapto" ).)它参数化
  21. .WebCheckBox("esbform:icePnlTbSet:0:pOadapto" ).Set "ON"   能否把它参数化
  22. .WebButton("增加 >").Click
  23. .WebElement("WebTable_3").Click

  24. wait (2)

  25. .WebButton("保存").Click

  26. On Error Resume Next
  27. ValCheck=).WebButton("新增").Check (CheckPoint("新增"))
  28. If ValCheck Then
  29. Reporter.ReportEvent micPass,"新增协议","新增协议成功"
  30. else
  31. Reporter.ReportEvent micPass,"新增协议","新增协议失败"
  32. err.clear
  33. End If

  34. end with

  35. Next
  36. ExlObj.Quit
  37. Set ExlObj = nothing
复制代码
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

  • TA的每日心情
    无聊
    2020-12-8 11:20
  • 签到天数: 605 天

    连续签到: 1 天

    [LV.9]测试副司令

    2#
    发表于 2013-1-16 14:40:18 | 只看该作者
    可以的
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    3#
     楼主| 发表于 2013-1-17 09:24:32 | 只看该作者
    回复 2# joykao

    能否给个实例
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    4#
    发表于 2013-1-17 09:30:26 | 只看该作者
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
     楼主| 发表于 2013-1-17 10:08:01 | 只看该作者
    回复 4# 黑羽祭
    我是想把webcheckbox的值参数化(对象名参数化)
    .WebCheckBox("esbform:icePnlTbSet:0:pOadapto" ).Set "ON"
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    6#
    发表于 2013-1-17 12:17:21 | 只看该作者
    回复 5# test-yao


        一样的,没区别
    .WebCheckBox(ReadExcel(1,2)).Set "ON"
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    无聊
    2020-12-8 11:20
  • 签到天数: 605 天

    连续签到: 1 天

    [LV.9]测试副司令

    7#
    发表于 2013-1-17 17:25:23 | 只看该作者
    回复 3# test-yao
    你可以把参数放在excel中,然后从excel中读取
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-8 15:26 , Processed in 0.078487 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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