51Testing软件测试论坛

标题: 请大家看看有什么问题，在线等待回复。（用excel导入到本地表中） [打印本页]

作者: fbs19871014 时间: 2010-3-17 15:53
标题: 请大家看看有什么问题，在线等待回复。（用excel导入到本地表中）
datastr="f:\\parameter.xls"
datatable.AddSheet ("testdata")
datatable.ImportSheet datastr,"sheet1","testdata"
For i=1 to datatable.GetSheet ("testdata").GetRowCount
'datatable.SetCurrentRow i
username=datatable.Value ("username","testdata")
password=datatable.Value ("password","testdata")
dialog("Login").WinEdit("Agent Name:").Set username
dialog("Login").WinEdit("Password:").Set password
Dialog("Login").WinEdit("Password:").Type micReturn
Window("Flight Reservation").Close
Next

作者: 测霸 时间: 2010-3-17 15:57
你应该发到QTP版中去

作者: nesic 时间: 2010-3-17 16:11
错误提示？

作者: fbs19871014 时间: 2010-3-17 16:13
没有执行到excel里的数据，也没报错。

作者: nesic 时间: 2010-3-17 16:29
应该是excel数据问题

作者: fbs19871014 时间: 2010-3-17 16:36
代码没问题吗，数据应该没问题啊，你们平时是不是这样做的，我把用例，vbs脚本和录制的qtp脚本分开做的，就这么简单，其他的就没细分了。感觉还不行，效果不太好。

作者: nesic 时间: 2010-3-17 16:49
修改一下多试几次，

作者: liangxue2007518 时间: 2010-3-25 13:48
我试了一下你的代码每次循环只取到了Excel文件的第一行数据，增加一行代码即可
DataTable.SetNextRow
不知道是不是你的问题？

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)