51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

12
返回列表 发新帖
楼主: auuppp

[原创] 自己整合的比较经典的qtp框架+excel报告

[复制链接]

该用户从未签到

发表于 2012-11-9 09:02:40 | 显示全部楼层
sadfasdf sadf
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2012-11-9 10:20:18 | 显示全部楼层
fjh
回复 支持 反对

使用道具 举报

  • TA的每日心情
    奋斗
    2018-3-20 05:34
  • 签到天数: 1188 天

    连续签到: 89 天

    [LV.10]测试总司令

    发表于 2012-11-12 11:14:15 | 显示全部楼层
    学习了,最近我正好也在研究框架,参考了!
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    2015-3-2 10:04
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    发表于 2013-6-18 10:49:25 | 显示全部楼层
    为什么每次执行到sBusinessCase=taskFileName这个话的时候就报错呢。。

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

    x
    回复 支持 反对

    使用道具 举报

  • TA的每日心情

    2024-2-19 21:55
  • 签到天数: 556 天

    连续签到: 1 天

    [LV.9]测试副司令

    发表于 2013-6-18 10:55:11 | 显示全部楼层
    hao
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    发表于 2013-6-20 14:35:35 | 显示全部楼层
    先顶一下,再下载。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    发表于 2013-6-21 21:19:36 | 显示全部楼层

    RE: 自己整合的比较经典的qtp框架+excel报告(zip)

    qtp framework zip format.  

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

    x
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2018-2-10 21:15
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    发表于 2013-7-10 11:32:18 | 显示全部楼层
    回复 27# xiaohuazhong5


        您好,我用你的代码跑了一下,出现错误,请问这个如何解决?

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

    x
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2018-2-10 21:15
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    发表于 2013-7-10 12:32:14 | 显示全部楼层
    回复 27# xiaohuazhong5

    这个问题解决了,我创建了几个文件夹以后就可以了。
    但是心的问题又出现了,是不是我环境变量设置的有问题?应该如何设置?

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

    x
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    发表于 2013-7-19 20:56:16 | 显示全部楼层
    SET_SHEET = Environment("SET_SHEET")
    TEST_SHEET = Environment("TEST_SHEET")
    不明白Environment("SET_SHEET")和 Environment("TEST_SHEET")的值是什么?在QTP中查看也没查出来。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    发表于 2013-7-22 21:14:19 | 显示全部楼层
    Private Sub Report_Click()
        Dim input_report As String
        Dim long_input As Long
        Dim serrial_project As Integer: serrial_project = 0
       
        If Date_Month.Text = "" Then
            MsgBox "Please input Report Date !"
            End
        End If
        input_report = Date_Month.Text
        long_input = CLng(CDate(input_report))   'change date to long
       
        While (Sheets("Month").Cells(serrial_project + 5, 3).Value <> "")
            Call each_project(serrial_project, long_input)
            serrial_project = serrial_project + 1
        Wend
       
    End Sub

    '
    Private Function each_project(a, b)
        Dim j, k As Integer:  k = 0
        Dim sourch_report As String
        Dim p1, p2 As Integer
        Dim q1, q2 As String
        Dim long_source As Long
        Dim sum_ports As Integer: sum_ports = 0
       
        For j = 1 To Sheets.Count
            If UCase(Sheets(j).Name) = UCase(Sheets("month").Cells(a + 5, 3).Value) Then
                While (UCase(Sheets(j).Cells(4 + k, 13).Value) <> "")
                    If (UCase(Sheets(j).Cells(4 + k, 13).Value) = "YES") Then
                        sourch_report = Sheets(j).Cells(4 + k, 10).Value
                        p1 = InStr(sourch_report, "/")
                        p2 = InStrRev(sourch_report, "/")
                        q1 = Left(sourch_report, p1 - 1)
                        q2 = Right(sourch_report, Len(sourch_report) - p2)
                        long_source = CLng(CDate(q1 & "/" & q2))
                        If long_source = b Then
                            sum_ports = sum_ports + Val(Sheets(j).Cells(4 + k, 11).Value)
                        End If
                    End If
                    k = k + 1
                Wend
                Sheets("month").Cells(a + 5, 5).Value = sum_ports
                sum_ports = 0: k = 0
                Exit For
            End If
        Next j
    End Function

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

    x
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    发表于 2013-7-23 09:50:19 | 显示全部楼层
    楼主是“QTP轻量级自动化测试框架”的作者吗?目测该框架和那个几乎一样.
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    发表于 2013-9-10 14:03:35 | 显示全部楼层
    回复 29# nonesense


        你把exel文件重新另存为97-2003版本的应该就可以了!
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    发表于 2013-9-10 14:03:39 | 显示全部楼层
    回复 29# nonesense


        你把exel文件重新另存为97-2003版本的应该就可以了!
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    发表于 2013-11-20 10:17:20 | 显示全部楼层
    回复 1# auuppp


       不错的~顶
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    郁闷
    2018-12-5 21:42
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    发表于 2013-11-21 14:31:06 | 显示全部楼层
    下来看看
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2016-4-27 10:20
  • 签到天数: 9 天

    连续签到: 1 天

    [LV.3]测试连长

    发表于 2016-6-20 13:40:32 | 显示全部楼层
      table = pathFind(testDataFolderName,testCaseFileName,"xls")  有这个用法么?到这通过不了呀!
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-3-29 22:16 , Processed in 0.074610 second(s), 21 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表