请大家帮忙看看是什么问题，浪费了一个下午的时间也没搜到，新手

qwtyu

不知道为什么总是报错误，论坛里面用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

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

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

qwtyu

set Driver = DDT.ExcelDriver("c:\Data_Drived.xls","wxz",true)        换成英文了，C盘确实有这个文件，又改到D盘试了，也还是这样的错误

qwtyu

true改成false  true是在使用excel2007时候需要使用