Динамическая связь в автоматизации UFT?

Question

Я хочу написать динамический VBScript для моей веб-автоматизации в UFT 12.02. Я хотел бы передать динамическое значение как часть ссылки. Вот мой пример кода Line:

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

У меня есть нулевой опыт с 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 

Answer 2

Да, вы должны использовать доллары США без двойной кавычки.

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 

Примечание: Я изменил USD с currType.