【描述】
导入excel测试用例到UFT,用for循环执行登录自动化测试。
测试用例有三条,分别是无用户名无密码、只有用户名、有用户名和密码。
【代码】
Dim username,password
Dim expectvalue,actualvalue
Dim casecount,i
'导入测试用例
datatable.ImportSheet "C:\Users\Administrator\Desktop\flightcase.xlsx",1,"Action1"
casecount=datatable.GetSheet("Action1").GetRowCount
For i = 1 To casecount
username=datatable("username","Action1")
password=datatable("password","Action1")
Dialog("Login").WinEdit("Agent Name:").Set username
Dialog("Login").WinEdit("Password:").Set password
Dialog("Login").WinButton("OK").Click
If dialog(