51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 10369|回复: 59
打印 上一主题 下一主题

[原创] 如何将脚本运行完的结果存入EXCEL中

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-6-28 11:55:17 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我想将运行完的结果,比如"PASS"或是“FAILED”写入到EXCEL中,如何写代码?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2007-6-28 13:12:51 | 只看该作者
楼主可以直接创建EXCEL对象然后把值放进去,也可以把值放在datatable里面,最后导出到EXCEL.
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2007-6-29 09:42:26 | 只看该作者
或者导出到txt文件,用逗号分割,最后更改后缀名为.csv就能用excel打开了
回复 支持 反对

使用道具 举报

  • TA的每日心情
    奋斗
    2022-7-13 15:22
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    4#
    发表于 2007-6-29 14:58:12 | 只看该作者
    datatable.ExportSheet filePath & "\DataTable.xls",2
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
    发表于 2007-7-3 14:37:27 | 只看该作者
    wksheet1.Cells(row,col)= “pass”
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    6#
     楼主| 发表于 2007-7-4 17:36:18 | 只看该作者
    我感觉你们回答的有些简单,对于你们来说可能太简单了。但对于我们第一次做的人可能还是不会。目前我已经把问题解决了。我是参照梦醒十分的读书笔记解决的。在此谢谢所有回答我问题的朋友
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    7#
    发表于 2007-7-5 19:21:40 | 只看该作者
    怎么解决的可以告诉我么 我也在搞这个
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    8#
    发表于 2007-7-6 18:30:51 | 只看该作者
    我贴一段QTP对xls文件的读写代码吧。

    Set xlApp = CreateObject("Excel.Application")
    xlApp.application.visible=true
    Set xlbook=xlApp.WorkBooks.Open("d:\nonodata.xls")
    Set xlSheet = xlBook.Worksheets("Sheet1")
    systemutil.Run "C:\windows\system32\calc.exe"

    For i=2 to 5
            input1= xlSheet.cells(i,2).value
            expression = xlSheet.cells(i,3).value
            input2= xlSheet.cells(i,4).value
            expresult = xlsheet.cells(i,5).value
           
    Window("计算器").Activate
    Window("计算器").Type cstr(input1)
    Window("计算器").WinButton("operator").SetTOProperty "text",cstr(expression)
    Window("计算器").WinButton("operator").Click
    Window("计算器").WinEdit("Edit").Type cstr(input2)
    Window("计算器").WinButton("=").Click

    outvalue = cstr(window("计算器").WinEdit("Edit").GetROProperty ("text"))
    Window("计算器").WinButton("C").Click
    actresult = replace(outvalue,".","")
    If trim(cstr(expresult)) <> trim(cstr(actresult)) Then
            reporter.ReportEvent 1,"测试结果","失败"
            xlsheet.cells(i,7) = "NOK"
            xlsheet.cells(i,7).font.color = vbred
    else
            reporter.ReportEvent 0,"测试结果","成功"
            xlsheet.cells(i,7) = "OK"
            xlsheet.cells(i,7).font.color = vbgreen
    End If
    xlSheet.cells(i,6) = actresult
    xlSheet.cells(i,6).font.color = vbblue
    Next
    Window("计算器").Close

    xlbook.save
    xlApp.DisplayAlerts = False
    xlbook.close(true)
    xlApp.quit
    Set excel=nothing

    p.s.:xls文件内容如下:
    caseID        input1        expression        input2        expresult        actresult        conclusion
    1        4        +        2        6               
    2        3        -        2        1               
    3        3        *        5        15               
    4        6        /        2        20
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    9#
     楼主| 发表于 2007-7-9 17:18:03 | 只看该作者

    我是这样做的

    Set ExcelObj = CreateObject("Excel.Application")
    ExcelObj.Workbooks.Open sfilePath
    Set NewSheet = ExcelObj.Sheets.Item(isheet)
    NewSheet.Cells(irow,icolumn) = value
    ExcelObj.ActiveWorkbook.Save
    ExcelObj.Application.Quit
    Set ExcelObj = Nothing
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    10#
    发表于 2007-7-9 23:02:47 | 只看该作者
    原帖由 xueqinzhaoqing 于 2007-7-9 17:18 发表
    Set ExcelObj = CreateObject("Excel.Application")
    ExcelObj.Workbooks.Open sfilePath
    Set NewSheet = ExcelObj.Sheets.Item(isheet)
    NewSheet.Cells(irow,icolumn) = value
    ExcelObj.ActiveWorkbook ...


    贴一个函数库吧,有关操作excel的,看了肯定就能知道楼主是怎么做的了。呵呵。

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

    x
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    11#
    发表于 2007-7-12 00:28:45 | 只看该作者
    最近也在搞这个,谢谢了
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    12#
    发表于 2007-7-12 09:41:41 | 只看该作者
    sdlkfj6 保存了
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    13#
    发表于 2007-7-22 20:33:41 | 只看该作者
    学习
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    14#
    发表于 2007-7-23 12:19:22 | 只看该作者
    学习
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    15#
    发表于 2007-7-23 13:15:10 | 只看该作者
    功能自动化测试“
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    16#
    发表于 2007-7-23 16:51:33 | 只看该作者
    收藏了
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    17#
    发表于 2007-7-23 18:00:39 | 只看该作者
    bucuo
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    18#
    发表于 2007-7-26 13:59:37 | 只看该作者
    学习学习
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    19#
    发表于 2007-7-26 14:32:55 | 只看该作者
    谢谢
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    20#
    发表于 2007-7-26 16:15:53 | 只看该作者
    有人知道是否可以在已有Excel文件的末尾追加内容
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-10 18:29 , Processed in 0.092212 second(s), 29 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表