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

看雪时节

积分！

jiangdanyang

谢谢,最近也在研究这个

Jimmyshao

原帖由 gzj_06 于 2007-7-26 16:15 发表
有人知道是否可以在已有Excel文件的末尾追加内容

每次新建记录后做一个addnew的动作
然后每次保存结果时先movelast

kelly-可儿

好深哦

wj1983654

学习中……

billygao

这个函数库有价值啊！

风过无息

看看这个：
http://www.51testing.com/?3528/action_viewspace_itemid_1189.html

mayuping0516

很好 顶一下sdlkfj3

wasd2615

mk

wangze1123

我怎么看不懂啊

vaguely

thanks

jiangdanyang

积分+1

jiangdanyang

刚才没下载,怎么也扣了我积分啊?

nedved1020

正在想呢！！谢谢10楼的

gzj_06

原帖由 jiangdanyang 于 2007-8-17 15:34 发表
刚才没下载,怎么也扣了我积分啊?

肯定是你偷打开看了一下sdlkfj5

gzj_06

原帖由 Jimmyshao 于 2007-8-7 20:12 发表
每次新建记录后做一个addnew的动作
然后每次保存结果时先movelast

谢谢，能否提供两句代码示例

temdow

最近也在研究这个，一时想不通

yuandjing

与大家分享一下最近我写的代码，放入vbs就可以调用了
'读Excel文件元素
Public Function QTP_Read_Excel(pathway,sheetname,x,y)
        Dim srcData,srcDoc,ret
        set srcData = CreateObject("Excel.Application")
        srcData.Visible = True
        set srcDoc = srcData.Workbooks.Open(pathway)
        srcDoc.Worksheets(sheetname).Activate
        ret = srcDoc.Worksheets(sheetname).Cells(x,y).value
        srcData.Workbooks.Close
        Window("text:=Microsoft Excel").Close
        QTP_Read_Excel = ret
End Function

'写Excel文件元素并保存退出
Public Function QTP_Write_Excel(pathway,sheetname,x,y,content)
        Dim srcData,srcDoc,sp1,sp2,num,use,a1,a2,a3
        set srcData = CreateObject("Excel.Application")
        srcData.Visible = True
        set srcDoc = srcData.Workbooks.Open(pathway)
        srcDoc.Worksheets(sheetname).Activate
        srcDoc.Worksheets(sheetname).Cells(x,y).value = content
       
        sp1 = Split(pathway,".")
        sp2 = Split(sp1(0),"\")
        num = UBound(sp2)
        use = sp2(num)

        Set a1 = Description.Create()
        a1("text").value="Microsoft Excel - " + use + ".xls"
        a1("window id").value="0"

        Set a3 = Description.Create()
        a3("Class Name").value="WinObject"
        a3("text").value= use + ".xls"

        Window(a1).WinObject(a3).Type micCtrlDwn + "s" + micCtrlUp

        srcData.Workbooks.Close
        Set srcDoc = nothing
       
        Window("text:=Microsoft Excel").Close
End Function

walker1020

非常感谢yuandjing  提供 了这么好的材料，这下 可以研究一下怎么样把QTP的 Test Report 输出到 Excel里面了。呵呵！

yabest

其实对于这么固定格式的输出，直接在DataTable里添加一个名为Result的Sheet，并设计好列信息，运行时往里添加Case运行记录，运行结束后直接DataTable.Export就可以了，不用搞得那麻烦的。

象我们用的主控Test，就是这样子输出Case运行结果信息的，既好用，又简单。