51Testing软件测试论坛

标题: QTP 对象的参数化的值是否可放到外部excel文件中 [打印本页]

---

作者: test-yao    时间: 2013-1-15 16:56
标题: QTP 对象的参数化的值是否可放到外部excel文件中

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. 
    
13. Protocol=ExlObj.WorkSheets("Sheet3").Cells(i,1)
    
14. esbform:icePnlTbSet:0:pOadapto=ExlObj.WorkSheets("Sheet3").Cells(i,2)
    
15. 
    
16. 
    
17. with Browser("SmartESB 管理监控平台").Page("SmartESB 管理监控平台")
    
18. .WebButton("新增").Click
    
19. .WebEdit("esbform:icePnlTbSet:0:formLast").Set Protocol
    
20. .WebElement("WebTable").Click
    
21. .WebList("esbform:icePnlTbSet:0:j_id22").Select "default_channel"
    
22. .WebElement("WebTable_2").Click
    
23. 
    
24. 能否把(WebCheckBox("esbform:icePnlTbSet:0:pOadapto" ).)它参数化
    
25. .WebCheckBox("esbform:icePnlTbSet:0:pOadapto" ).Set "ON"   能否把它参数化
    
26. .WebButton("增加 >").Click
    
27. .WebElement("WebTable_3").Click
    
28. 
    
29. wait (2)
    
30. 
    
31. .WebButton("保存").Click
    
32. 
    
33. On Error Resume Next
    
34. ValCheck=).WebButton("新增").Check (CheckPoint("新增"))
    
35. If ValCheck Then
    
36. Reporter.ReportEvent micPass,"新增协议","新增协议成功"
    
37. else
    
38. Reporter.ReportEvent micPass,"新增协议","新增协议失败"
    
39. err.clear
    
40. End If
    
41. 
    
42. end with
    
43. 
    
44. Next
    
45. ExlObj.Quit
    
46. Set ExlObj = nothing
    

复制代码

---

作者: joykao    时间: 2013-1-16 14:40
可以的

---

作者: test-yao    时间: 2013-1-17 09:24
回复 2# joykao

能否给个实例

---

作者: 黑羽祭    时间: 2013-1-17 09:30
回复 3# test-yao


    http://www.51testing.com/index.php?uid-307440-action-viewspace-itemid-827863

---

作者: test-yao    时间: 2013-1-17 10:08
回复 4# 黑羽祭
我是想把webcheckbox的值参数化（对象名参数化）
.WebCheckBox("esbform:icePnlTbSet:0:pOadapto" ).Set "ON"

---

作者: 黑羽祭    时间: 2013-1-17 12:17
回复 5# test-yao


    一样的，没区别
.WebCheckBox(ReadExcel(1,2)).Set "ON"

---

作者: joykao    时间: 2013-1-17 17:25
回复 3# test-yao
你可以把参数放在excel中，然后从excel中读取

---

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

Powered by Discuz! X3.2