Option explicit
Dim rowcount'存储数据总行数
Dim filepath'获取excel表格路径
Dim i'循环变量
filepath=pathfinder.Locate("webmail_option_preference_hintSendSuccess.xls")
datatable.Import(filepath)
rowcount=datatable.GetRowCount'统计行数
For i=0 to rowcount-1
datatable.GetCurrentRow '置当前行为活动行
send=datatable.Value("send")'这里Value("send")中的send为excel中的列名,是在设计测试数据时确定的
name1=datatable.Value("name1")'同上
。。。。。。
datatable.SetNextRow'下一行