51Testing软件测试论坛

标题: 请大家帮忙看看是什么问题，浪费了一个下午的时间也没搜到，新手 [打印本页]

作者: qwtyu 时间: 2011-8-30 16:33
标题: 请大家帮忙看看是什么问题，浪费了一个下午的时间也没搜到，新手
不知道为什么总是报错误，论坛里面用TC的人好像也不是很多，希望有懂得指导一下

Sub main()
  TestedApps.RunAll
  Login
  Add
  loopwhile
  ExiteEOS
End Sub

Sub Login
  Call Aliases.Eos.Form_Login.Panel1.Edit_User.TcxCustomInnerTextEdit.Keys("jdy")
  Call Aliases.Eos.Form_Login.Panel1.btnOK.Click(44, 16)
End Sub

Sub Add
  Call Aliases.Eos.MainForm.dckstHost.dckpnlMenuTree.nvbarMenuTree.TdxNavBarGroupControl.tvMenuList.TcxCustomInnerTreeView.DblClickItem("|单据(单据定义测试)")
  Call Aliases.Eos.MainForm.TdxDockControl.TdxBarControl.Click(146, 8)
End Sub

Sub loopwhile
  Dim Driver
set Driver = DDT.ExcelDriver("c:\Data_Drived.xls","无效值",true) '运行的错误指向这里
set tzsmr = Aliases.Eos.MainForm.dckstHost.dxLayoutDockSite1.TdxTabContainerDockSite.TdxDockPanel.DjDtEditForm.DockSite_Host.dxLayoutDockSite2.DockPnl_DJ.MainPanel.HeadPage.cxTabSheet1.DbEditHint.TcxCustomInnerTextEdit
While Not Driver.EOF
  tzsmr=Driver.wxz
  Call Aliases.Eos.MainForm.TdxDockControl.TdxBarControl.Click(152, 10)
  Call Aliases.Eos.TMessageForm.OK.ClickButton
  Call Aliases.Eos.MainForm.TdxDockControl.TdxBarControl.Click(361, 15)
  Call Aliases.Eos.TMessageForm1.Yes.ClickButton
  Call driver.next
  Wend
End Sub

Sub ExiteEOS
  Call Aliases.Eos.MainForm.TdxDockControl.TdxBarControl.Click(637, 13)
Call tdxDockControl.TdxBarControl.Click(937, 17)
Call tdxDockControl.TdxBarControl1.Click(34, 13)
Call Aliases.Eos.TdxBarSubMenuControl.Click(65, 106)
Aliases.Eos.TMessageForm2.Yes.ClickButton

End Sub

作者: WANDY 时间: 2011-8-30 16:58
本帖最后由 WANDY 于 2011-8-30 17:00 编辑

set Driver = DDT.ExcelDriver("c:\Data_Drived.xls","无效值",true)

这里没有任何错误么？比如 C盘下是否存在 Data_Drived.xls (文件名是否完全正确。) 无效值这个sheet改英文试试？

作者: qwtyu 时间: 2011-8-31 09:18
set Driver = DDT.ExcelDriver("c:\Data_Drived.xls","wxz",true) 换成英文了，C盘确实有这个文件，又改到D盘试了，也还是这样的错误

作者: qwtyu 时间: 2012-4-9 15:09
true改成false true是在使用excel2007时候需要使用

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