无法将需要的值写入excel

五百螺汉

以下是代码
Set xlapp= createobject ("excel.application")
xlapp.application.visible = true

Set xlbook = xlapp.workbooks.open("d:\result.xls")
Set xlsheet = xlbook.worksheets("sheet1")


checkP1 =Browser("Blog@35").Page("Blog@35").Image("banner").check (CheckPoint("banner"))

If  checkP1 = true   Then
      Browser("Blog@35.com").Page("Blog@35.com").WebEdit("user_openid").Set 22222
      Browser("Blog@35.com").Page("Blog@35.com").WebButton("Input").Click
End if       
      


wait (1)
If  Browser("Blog@35.com").Page("登录 - Blog@35").Exist(2) = true  Then
        'Reporter.ReportEvent micDone, "不存在的用户", "不存在的用户"
       
xlsheet.cells(1,3) = "执行成功，改步骤执行的是：输入不存在的帐号"

End If
Browser("Blog@35.com").Page("登录 - Blog@35").Link("首 页").Click
  


xlbook.SaveAs "d:\result.xls"
xlapp.application.quit
Set xlapp = nothing



xlsheet.cells(1,3) = "执行成功，改步骤执行的是：输入不存在的帐号"   excel会提示是否要修改，但是点击确定以后，excel里面的内容和没有修改前是一样的。

五百螺汉

我需要将“执行成功，改步骤执行的是：输入不存在的帐号”这串值输入到sheet1的（1.3）位置。

谢谢拉

tonyzhangjie

如果你要同名覆盖的话就直接xlbook.Save

danmy

确认下有没有走到IF里面去

yuandjing

set srcData = CreateObject("Excel.Application")
        srcData.Visible = True
        set srcDoc = srcData.Workbooks.Open(pathway)
        srcDoc.Worksheets(sheetname).Activate
        srcDoc.Worksheets(sheetname).Cells(x,y).value = content
楼主按照上面的改一下就可以了

五百螺汉

好的，我试试，测试服务器出了问题，捣鼓了半天没搞定

五百螺汉

问题已经解决，页面的对象属性弄错了，
此处If  Browser("Blog@35.com").Page("登录 - Blog@35").Exist(2) = true  
应该是If  Browser("Blog@35.com").Page("登录2 - Blog@35").Exist(2) = true

因此没有走到if里面，谢谢各位拉

zhuyuancan

xlsheet.cells(1,3).value = "执行成功，改步骤执行的是：输入不存在的帐号"