excel表导入测试数据
上一节
下一节
datatable.ImportSheet "d:\logintestcase.xlsx","Sheet1","Action1"
'获取总的用例个数
casecount=datatable.GetSheet("Action1").GetRowCount
msgbox casecount
For i = 1 To casecount
username=datatable("name","Action1")
password=datatable("password","Action1")
idtype=datatable("IDType","Action1")
Browser("登录").Page("登录").WebEdit("TextBox1").Set username
Browser("登录").Page("登录").WebEdit("TextBox2").Set password
Browser("登录").Page("登录_2").WebRadioGroup("RadioButtonList1").Select idtype
Browser("登录").Page("登录").WebButton("Button1").Click
next

