0

对于以下情况，我需要 VBScript 或 QTP 的帮助。

例如：

我在网络列表中有近 40 个项目。我在 Excel 工作表中只有一项是网络列表中 40 项中的一项。如果我运行脚本，应该在网络列表中选择 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
4

1 回答 1

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
于 2013-05-24T11:19:44.330 回答