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

关于运行后的数据写入Excel

假如运行后的结果为： 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
页: [1]
查看完整版本: 关于运行后的数据写入Excel