Question

我想在UFT 12.02中为我的Web自动化编写动态VBScript。我想传递一个动态值作为链接的一部分。这是我的示例行代码：

set ObjExcel = CreateObject("Excel.application")
ObjExcel.workbooks.open "F:\Automation\Web\Business\WebTestData.xls"

For Curr= 1 To 20
    USD = ObjExcel.sheets(1).cells(Curr,1).Value
    If Browser("...").Page("...").Exist Then
       Browser("...").Page("...").WebElement("WebElement").Click
       'Attempt to click on Drop Down Link
       Browser("...").Page("...").Link("USD").Click
    End If
Next

"USD"会不断变化，即我将从Excel中选择它。

预期结果：

生成一个脚本，尝试点击不同的链接，如下所示：

Browser("...").Page("...").Link("EURO").Click
Browser("...").Page("...").Link("BP").Click
Browser("...").Page("...").Link("AED").Click
Browser("...").Page("...").Link("KSH").Click
Browser("...").Page("...").Link("IR").Click

Answer 1

是的，你应该使用没有双引号的美元。

Dim currType, ObjExcel

set ObjExcel = CreateObject("Excel.application")
ObjExcel.workbooks.open "F:\Automation\Web\Business\WebTestData.xls"

For Curr= 1 To 20
   currType = ObjExcel.sheets(1).cells(Curr,1).Value
   If Browser("...").Page("...").Exist Then
      Browser("...").Page("...").WebElement("WebElement").Click
      'Attempt to click on Drop Down Link
      Browser("...").Page("...").Link(currType).Click
   End If
Next

set ObjExcel = Nothing

注意：我用currType改变了美元。

Answer 2

我对UFT没有经验，但是不应该使用变量 b.r而不是字符串 USD做你想要的吗？

"USD"

UFT自动化中的动态链接？

2 个答案: