从Excel工作表中搜索WebList以获取特定项目数

时间:2013-05-22 06:36:38

标签: vbscript listbox qtp

我需要在VBScript中提供帮助,或者在QTP中提供以下案例的帮助。

例如:

我在网表中有近40个项目。我在Excel工作表中只有一个项目是weblist中的40个项目之一。如果我运行脚本,则应在Weblist中选择Excel中的脚本。我该怎么做?我尝试了很多场景,但无法让它发挥作用。

以下是我在QTP中尝试过的一些代码示例:

ocount=Browser("name:=brw").Page("title:=brw").WebList("htmlid:=tabContainerBrandSite_123&rtyoh").GetROProperty("items count")

msgbox ocount

var7=mySheet2.Cells(2,"C")

For k=2 to ocount 

ocount2=Browser("name:=brw").Page("title:=brw").WebList("html id:=tabContainerBrandSite_123&rtyoh").GetItem(k)

msgbox ocount2

1 个答案:

答案 0 :(得分:0)

merchantName = DataTable("Merchant_Name","Global") 'an example if value is saved in global sheet
items_count =  Browser("Sarit").Page("Sarit_2").WebList("txtVendorCode").GetROProperty("Items Count")  'This will get all the items from your weblist.

i = 1
Do

    webListName = Browser("Sarit").Page("Sarit_2").WebList("txtVendorCode").GetItem(i)
'this will get first value from the web list 
    If merchantName = webListName Then  'comparing first value from your value from global sheet
        Browser("Sarit").Page("Sarit_2").WebList("txtVendorCode").Select(i) 'selects that value
        Exit do 'because it has found your only value from the local sheet, it exits
        else
        i = i + 1
    End If
Loop While i <= items_count