Я разрабатываю автоматизированную среду тестирования для своей Организации. Есть много тестов для регрессионного цикла. Я разработал функции для каждого тестового примера, и соответствующие им названия функций сохранены в листе Excel.
Лист Excel содержит следующие столбцы, и я импортирую лист:
Выполнить | TestCaseName | FunctionName
ДА | Test1 | Войти
Если Выполнить = ДА, то Вызовите значение из FunctionName
Dim ScriptNo, Scriptscount
Call ImportCustAcctOpenSheet
Scriptscount = DataTable.GetSheet("Scripts").GetRowCount
For ScriptNo = 1 To Scriptscount
DataTable.GetSheet("Scripts").SetCurrentRow ScriptNo
If ucase(DataTable("Execute", "Scripts")) = "YES" Then
Environment("ScriptName") = DataTable("TestCaseName", "Scripts")
Environment("SSPath") = DataTable("TestsCasePath", "Scripts")
Environment("FM") = DataTable("FundManager", "Scripts")
Environment("Func") = DataTable("FunctionName", "Scripts")
Call Environment("Func")
End If
Next
Я ожидаю, что UFT вызовет Вход в систему Функция в Call Environment("Func")
, но вместо этого она выдает ошибку
Объект не поддерживает это свойство или метод: 'Environment'
Строка (11): «Call Environment (« Func »)».