标题: text output value 只能取到固定值?为什么啊? [打印本页] 作者: wangtong0415 时间: 2010-9-6 10:35 标题: text output value 只能取到固定值?为什么啊? Dim outrealmsg '定义系统实际提示信息的变量,并和outmsg进行对比
Dim realstate '定义系统预期提示信息的变量,并和state进行对比
Dim i,j
Dim rowcount'存取数据总行数
Dim filepath'获取excel表格路径
filepath=pathfinder.Locate("E:\Study\QTP\hirisun-lianxi\exportel.xls")
datatable.ImportSheet filepath, "Action1", "Action1"'Excel表中只有一个sheet有数据使用Import,如果Excel中多个sheet有数据,这里就要使用ImportSheet 来指 定具体导入那一个sheet表的数据了
rowcount=datatable.GetSheet("Action1").getrowcount'读取loginsheet表行数并循环
If outrealmsg = realstate Then
reporter.ReportEvent micPass,"登录测试","通过"
else
reporter.ReportEvent micFail,"登录功能测试","失败:实际值是:"+ outrealmsg +",预期值是:"+ realstate
End If