51Testing软件测试论坛

标题: 菜鸟求助‘ [打印本页]

作者: zhangshuqingv 时间: 2013-11-6 11:14
标题: 菜鸟求助‘
DataStr="D:\Book1.xls"
DataTable.AddSheet ("testdata")
DataTable.ImportSheet DataStr, "sheet1", DataTable("A", dtGlobalSheet)
For i=1 to DataTable.GetSheet ("testdata").GetRowCount
DataTable.SetCurrentRow i
Dialog("Login").WinEdit("Agent Name:").Set DataTable.value("AgentName","testdata")
Dialog("Login").WinEdit("Password:").Set DataTable.value("PassWord","testdata")
Dialog("Login").WinButton("OK").Click
Next
这段代码执行到输入AgentName时报错AgentName不存在我在Global中加入AgentName 还是报错请问是怎么回事呢

作者: joykao 时间: 2013-11-6 12:59
把代码写的如此复杂凌乱。。。。

你是想把外部的数据读到QTP的datatable里面，然后一个个的被程序读入是吗？你的测试数据都存在了叫book1.xls文件了对吧。。。

'启动程序引号里的代表程序路径
systemutil.Run "C:\Program Files (x86)\HP\QuickTest Professional\samples\flight\app\flight4a.exe"
DataStr="D:\Book1.xls"
'读取外部excel测试数据到Global表
DataTable.Import DataStr
'给程序输入数据
Dialog("Login").WinEdit("Agent Name:").Set DataTable.value("AgentName")
Dialog("Login").WinEdit("Password:").Set DataTable.value("PassWord")
Dialog("Login").WinButton("OK").Click
'关闭程序
Window("Flight Reservation").Close

作者: zhangshuqingv 时间: 2013-11-6 14:01
我用你给的代码还是提醒AgentName不存在啊怎么回事呢

作者: zhangshuqingv 时间: 2013-11-6 14:19
Set ob =CreateObject("Excel.Application") 顺便请问一下这句话为什么一直运行不了了 Gereral Run Error 我就是在学习用不同的方法将Excel的数据传到QTP中问题很菜感谢你的回答

作者: joykao 时间: 2013-11-6 14:24
回复 3# zhangshuqingv

你的excel里要有这个名字才行啊。。。就是那个excel里面第一个表格填入你的AgentName 第二列的填入PassWord
然后下面的行里面填你要输入的数据哇。。。。这样读到datatable里面自然就是2列AgentName和PassWord列呢。。。然后所有2列下的数据就被全读到了哇。。。。

作者: joykao 时间: 2013-11-6 14:30
回复 5# zhangshuqingv

单单的一句话也错？先去好好看看EOM，多了解了解

作者: zhangshuqingv 时间: 2013-11-6 16:30
原来是自己进入了误区一直以为数据传到Datatable中在这个里面要有Agentname才行还是自己理解的不够透彻感谢回答

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