首页 文章

UFT自动化中的动态链接？

提问于
浏览 次
0

我想在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中选择它 .

Expected Result:

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

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
vbscript automation hp-uft

2 回答

  • 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更改了USD .

    回复于
  • 2

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

    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
    回复于

相关问题