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

xueqinzhaoqing 发表于 2007-6-28 11:55:17

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

风过无息 发表于 2007-6-28 13:12:51

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

yuandjing 发表于 2007-6-29 09:42:26

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

rivermen 发表于 2007-6-29 14:58:12

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

xiao* 发表于 2007-7-3 14:37:27

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

xueqinzhaoqing 发表于 2007-7-4 17:36:18

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

hotmail624 发表于 2007-7-5 19:21:40

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

lhd85 发表于 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

xueqinzhaoqing 发表于 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

wuzhuayu 发表于 2007-7-9 23:02:47

原帖由 xueqinzhaoqing 于 2007-7-9 17:18 发表 http://bbs.51testing.com/images/common/back.gif
Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.Workbooks.Open sfilePath
Set NewSheet = ExcelObj.Sheets.Item(isheet)
NewSheet.Cells(irow,icolumn) = value
ExcelObj.ActiveWorkbook ...

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

sakusy 发表于 2007-7-12 00:28:45

最近也在搞这个，谢谢了

wuyuzimu 发表于 2007-7-12 09:41:41

sdlkfj6 保存了

huangjs 发表于 2007-7-22 20:33:41

学习

meijiao 发表于 2007-7-23 12:19:22

学习

temdow 发表于 2007-7-23 13:15:10

功能自动化测试“

syang0517 发表于 2007-7-23 16:51:33

收藏了

lantianwei 发表于 2007-7-23 18:00:39

bucuo

herry-wong 发表于 2007-7-26 13:59:37

学习学习

zemperor 发表于 2007-7-26 14:32:55

谢谢

gzj_06 发表于 2007-7-26 16:15:53

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

页: [1] 2 3

51Testing软件测试论坛 's Archiver

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

我是这样做的