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

test-yao

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

可以的

test-yao

回复 2# joykao

能否给个实例

黑羽祭

回复 3# test-yao


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

test-yao

回复 4# 黑羽祭
我是想把webcheckbox的值参数化（对象名参数化）
.WebCheckBox("esbform:icePnlTbSet:0:pOadapto" ).Set "ON"

黑羽祭

回复 5# test-yao


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

joykao

回复 3# test-yao
你可以把参数放在excel中，然后从excel中读取