菜鸟求助‘

zhangshuqingv

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

把代码写的如此复杂凌乱。。。。

你是想把外部的数据读到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

我用你给的代码还是提醒AgentName不存在啊   怎么回事呢

zhangshuqingv

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

zhangshuqingv

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

joykao

回复 3# zhangshuqingv


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

joykao

回复 5# zhangshuqingv

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

zhangshuqingv

原来是自己进入了误区 一直以为数据传到Datatable中  在这个里面要有Agentname才行 还是自己理解的不够透彻   感谢回答