如何将脚本运行完的结果存入EXCEL中

xueqinzhaoqing

我想将运行完的结果，比如"PASS"或是“FAILED”写入到EXCEL中，如何写代码？

风过无息

楼主可以直接创建EXCEL对象然后把值放进去,也可以把值放在datatable里面,最后导出到EXCEL.

yuandjing

或者导出到txt文件，用逗号分割，最后更改后缀名为.csv就能用excel打开了

rivermen

datatable.ExportSheet filePath & "\DataTable.xls",2

xiao*

wksheet1.Cells(row,col)= “pass”

xueqinzhaoqing

我感觉你们回答的有些简单，对于你们来说可能太简单了。但对于我们第一次做的人可能还是不会。目前我已经把问题解决了。我是参照梦醒十分的读书笔记解决的。在此谢谢所有回答我问题的朋友

hotmail624

怎么解决的可以告诉我么 我也在搞这个

lhd85

我贴一段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

xueqinzhaoqing

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

wuzhuayu

原帖由 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的，看了肯定就能知道楼主是怎么做的了。呵呵。

sakusy

最近也在搞这个，谢谢了

wuyuzimu

sdlkfj6 保存了

huangjs

学习

meijiao

学习

temdow

功能自动化测试“

syang0517

收藏了

lantianwei

bucuo

herry-wong

学习学习

zemperor

谢谢

gzj_06

有人知道是否可以在已有Excel文件的末尾追加内容