51Testing软件测试论坛

标题: 无法将需要的值写入excel [打印本页]

作者: 五百螺汉 时间: 2007-10-23 10:43
标题: 无法将需要的值写入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里面的内容和没有修改前是一样的。

作者: 五百螺汉 时间: 2007-10-23 10:44
我需要将“执行成功，改步骤执行的是：输入不存在的帐号”这串值输入到sheet1的（1.3）位置。

谢谢拉

作者: tonyzhangjie 时间: 2007-10-23 11:09
如果你要同名覆盖的话就直接xlbook.Save

作者: danmy 时间: 2007-10-23 11:44
确认下有没有走到IF里面去

作者: yuandjing 时间: 2007-10-23 13:32
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
楼主按照上面的改一下就可以了

作者: 五百螺汉 时间: 2007-10-23 15:09
好的，我试试，测试服务器出了问题，捣鼓了半天没搞定

作者: 五百螺汉 时间: 2007-10-24 11:55
问题已经解决，页面的对象属性弄错了，
此处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 时间: 2007-10-24 16:22
xlsheet.cells(1,3).value = "执行成功，改步骤执行的是：输入不存在的帐号"

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