看雪时节 发表于 2007-8-7 17:18:33

积分！

jiangdanyang 发表于 2007-8-7 18:16:25

谢谢,最近也在研究这个

Jimmyshao 发表于 2007-8-7 20:12:36

原帖由 gzj_06 于 2007-7-26 16:15 发表 http://bbs.51testing.com/images/common/back.gif
有人知道是否可以在已有Excel文件的末尾追加内容

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

kelly-可儿 发表于 2007-8-8 09:49:18

好深哦

wj1983654 发表于 2007-8-8 12:48:25

学习中……

billygao 发表于 2007-8-9 07:27:21

这个函数库有价值啊！

风过无息 发表于 2007-8-9 07:34:19

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

mayuping0516 发表于 2007-8-12 13:33:47

很好 顶一下sdlkfj3

wasd2615 发表于 2007-8-12 23:50:41

mk

wangze1123 发表于 2007-8-13 16:20:38

我怎么看不懂啊

vaguely 发表于 2007-8-17 11:45:37

thanks

jiangdanyang 发表于 2007-8-17 15:29:49

积分+1

jiangdanyang 发表于 2007-8-17 15:34:20

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

nedved1020 发表于 2007-8-20 10:20:57

正在想呢！！谢谢10楼的

gzj_06 发表于 2007-8-22 16:48:13

原帖由 jiangdanyang 于 2007-8-17 15:34 发表 http://bbs.51testing.com/images/common/back.gif
刚才没下载,怎么也扣了我积分啊? 肯定是你偷打开看了一下sdlkfj5

gzj_06 发表于 2007-8-22 16:51:22

回复 #23 Jimmyshao 的帖子

原帖由 Jimmyshao 于 2007-8-7 20:12 发表 http://bbs.51testing.com/images/common/back.gif
每次新建记录后做一个addnew的动作
然后每次保存结果时先movelast 谢谢，能否提供两句代码示例

temdow 发表于 2007-8-22 17:18:39

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

yuandjing 发表于 2007-8-23 13:11:30

与大家分享一下最近我写的代码，放入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 发表于 2007-8-24 00:20:27

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

yabest 发表于 2007-8-24 01:39:27

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

象我们用的主控Test，就是这样子输出Case运行结果信息的，既好用，又简单。
页: 1 [2] 3
查看完整版本: 如何将脚本运行完的结果存入EXCEL中