关于运行后的数据写入Excel

S小虾米 · 发表于 2010-5-19 11:34:00

假如运行后的结果为： 33 12号 55号
32 14号 77号
怎样将这些数据依次写入Excel表里呢？
麻烦指点下，谢谢各位：）

S小虾米 · 发表于 2010-5-19 11:35:03

差不多是2行3列的样子
在线等，谢谢大家

ymn911 · 发表于 2010-5-19 11:48:40

不是很明白你要做什么，是要对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:05

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

S小虾米 · 发表于 2010-5-19 13:48:33

谢谢楼上的建议：）
我就想要运行后的结果直接写入到Excel就可以了

S小虾米 · 发表于 2010-5-19 13:50:59

写进excel这个效果就行了

S小虾米 · 发表于 2010-5-19 13:52:18

用QTP不久，不知道怎么把数据写入excel：（
谢谢各位了！

S小虾米 · 发表于 2010-5-19 15:13:10

问题解决了，谢谢各位了

purple39 · 发表于 2010-5-20 09:38:14

怎么解决的啊？让大家也来学习下啊。

S小虾米 · 发表于 2010-5-20 11:10:19

脚本是这样的：
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

[原创] 关于运行后的数据写入Excel

相关帖子

本帖子中包含更多资源

站长推荐 /1