51Testing软件测试论坛

标题: 关于运行后的数据写入Excel [打印本页]

作者: S小虾米 时间: 2010-5-19 11:34
标题: 关于运行后的数据写入Excel
假如运行后的结果为： 33 12号 55号
32 14号 77号
怎样将这些数据依次写入Excel表里呢？
麻烦指点下，谢谢各位：）

作者: S小虾米 时间: 2010-5-19 11:35
差不多是2行3列的样子
在线等，谢谢大家

作者: ymn911 时间: 2010-5-19 11:48
不是很明白你要做什么，是要对Excel进行相关的写入操作吗？
FileName = Parameter("I_File")                            'Parameter("I_File") 你要操作Excel的路径
Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.Workbooks.Open FileName
Set NewSheet = ExcelObj.Sheets.Item(sheetname) 'sheetname  不解释了
NewSheet.Cells(*,*) =Environment.Value("BatchId")  '两个*分别是行  列
ExcelObj.ActiveWorkbook.Save
ExcelObj.Application.Quit
Set ExcelObj = Nothing

作者: yahuu 时间: 2010-5-19 13:36
其实楼主不如直接把这些数据写到EXCEL，然后截图发上来说你要什么结果。
当然你必须把你的原始数据的格式也要排列好，看你1楼的数据排列，头昏啊
33 12号 55号
32 14号 77号
这样吗？
33、32 是序号吗？写入excel时需不需要进行排序插入？直接续写？

作者: S小虾米 时间: 2010-5-19 13:48
谢谢楼上的建议：）
我就想要运行后的结果直接写入到Excel就可以了

作者: S小虾米 时间: 2010-5-19 13:50
写进excel这个效果就行了
[attach]62228[/attach]

作者: S小虾米 时间: 2010-5-19 13:52
用QTP不久，不知道怎么把数据写入excel：（
谢谢各位了！

作者: S小虾米 时间: 2010-5-19 15:13
问题解决了，谢谢各位了

作者: purple39 时间: 2010-5-20 09:38
怎么解决的啊？让大家也来学习下啊。

作者: S小虾米 时间: 2010-5-20 11:10
脚本是这样的：
Set ExcelObj = CreateObject("Excel.Application")
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelObj.Application.Visible = True
ExcelSheet.ActiveSheet.Cells(1,1).Value = "value" ‘1，1是指第1行，第1列
ExcelSheet.SaveAs("路径")
ExcelObj.Quit
Set ExcelObj = Nothing

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