使用vbs生成的测试报告

最新推荐文章于 2020-11-29 14:45:02 发布
最新推荐文章于 2020-11-29 14:45:02 发布
阅读量179 收藏
点赞数
文章标签： python 测试
原文链接：https://my.oschina.net/u/2391658/blog/709407
版权

2019独角兽企业重金招聘Python工程师标准>>> hot3.png

几年前，貌似是2012年，自己做自动化时，用的还都是QTP，说实话QTP自己生成的测试报告很不直观，一般都要自己定制测试报告。还好QTP使用的是vbs，于是自己就动手定制了一个。比较实用，下面是我基于vbs做的这个测试报告的源码：

1、源码

Dim varReportName        ' 测试报告文件名
Const cSheet1Name = "结果概览"
Const cSheet2Name = "详细结果"

'描述：GetIP    捕获运行脚本的电脑ＩＰ
Public Function GetInfo
    ComputerName="."
    Dim objWMIService,colItems,objItem,objAddress,username,localhostname
	username = Environment("UserName")
	localhostname = Environment("LocalHostName")
    Set objWMIService = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
    For Each objItem in colItems
        For Each objAddress in objItem.IPAddress
            If objAddress <> "" then
                GetInfo = "本机IP："&objAddress &vbcrlf&"用户名："&username&vbcrlf&"机器名："&localhostname
                Exit Function
            End If
        Next
    Next
End Function

Sub ExcelReport(ByVal vStatus, ByRef vDetails, ByRef vRemarks)

    Dim objExcel        ' object of Excel
    Dim objExcelBook    ' object of Excel WorkBook
    Dim vActionName        ' QTP Test Name
    Dim vSummaryRow, vResultRow, vNewAction, vUCaseStatus
    
    vActionName = Environment("TestName" )& " － " & Environment("ActionName")
'    vActionName = "ExcelReporter － Action "
    vUCaseStatus = UCase(vStatus)
    If varReportName = Empty Then
        varReportName = Environment ("TestDir")& "\" &Replace(Now,":","") & "测试报告" &".xls"
     'varReportName = "D:\测试报告" & Date & second(now)&".xls"
        Call CreateExcelReport(varReportName)
    End If
    
    Set objExcel = CreateObject("Excel.Application")
    Set objExcelBook = objExcel.Workbooks.Open(varReportName)
'    objExcel.Visible = True        'Debug
    
    ' Test Summary Sheet
    objExcel.Sheets(cSheet1Name).Select
    With objExcel.Sheets(cSheet1Name)
        vSummaryRow = .Range("C7").Value + 11
        vResultRow = .Range("C8").Value + 2*.Range("C7").Value + 2
        vNewAction = False
        
        If .Cells(vSummaryRow - 1, 2).Value <> vActionName Then        ' 新增Action
            .Cells(vSummaryRow, 2).Value = vActionName
            objExcel.ActiveSheet.Hyperlinks.Add .Cells(vSummaryRow, 2), "", cSheet2Name&"!A"&vResultRow+1, vActionName&" Result"
            .Cells(vSummaryRow, 3).Value = vStatus
            Select Case vUCaseStatus
                Case "FAIL"
                    .Range("C" & vSummaryRow).Font.ColorIndex = 3
                Case "PASS"
                    .Range("C" & vSummaryRow).Font.ColorIndex = 50
                Case "WARNING"
                    .Range("C" & vSummaryRow).Font.ColorIndex = 5              
            End Select
            vNewAction = True
            .Cells(vSummaryRow, 4).Value = 1
            .Range("C7").Value = .Range("C7").Value + 1
            'Set color and Fonts
            .Range("B" & vSummaryRow & "" & vSummaryRow).Borders(1).LineStyle = 1 
            .Range("B" & vSummaryRow & "" & vSummaryRow).Borders(2).LineStyle = 1
            .Range("B" & vSummaryRow & "" & vSummaryRow).Borders(3).LineStyle = 1
            .Range("B" & vSummaryRow & ":D" & vSummaryRow).Borders(4).LineStyle = 1
            .Range("B" & vSummaryRow & ":D" & vSummaryRow).Interior.ColorIndex = 19
            .Range("B" & vSummaryRow).Font.ColorIndex = 53
        Else
            .Range("D" & vSummaryRow-1).Value = .Range("D" & vSummaryRow-1).Value + 1
        End If
        
        If (Not vNewAction) And (vUCaseStatus = "FAIL") Then        ' 重复Action Test并且vStatus为Fail
            .Cells(vSummaryRow-1, 3).Value = vStatus
            .Range("C" & vSummaryRow-1).Font.ColorIndex = 3
        End If

        If (Not vNewAction) And (vUCaseStatus = "PASS") Then        ' 重复Action Test并且vStatus为Warning,如果结果为Warning，也标注为Pass
            If UCase(.Cells(vSummaryRow-1, 3).Value) = "PASS" Then
                .Cells(vSummaryRow-1, 3).Value = vStatus
                .Range("C" & vSummaryRow-1).Font.ColorIndex = 5
            End If
        End If

        .Range("C8").Value = .Range("C8").Value + 1
        .Range("C5").Value = Time
    End With

    ' Test Result Sheet
    objExcel.Sheets(cSheet2Name).Select
    With objExcel.Sheets(cSheet2Name)
        If vNewAction Then
            .Range("A" & vResultRow & ":D" & vResultRow).Interior.ColorIndex = 15
            .Range("A" & vResultRow & ":D" & vResultRow).Merge
            vResultRow = vResultRow + 1
            .Range("A" & vResultRow & ":D" & vResultRow).Merge
            .Range("A" & vResultRow & ":D" & vResultRow).HorizontalAlignment = 1
            .Range("A" & vResultRow).Value = vActionName
            'Set color and Fonts
            .Range("A" & vResultRow & ":D" & vResultRow).Interior.ColorIndex = 19
            .Range("A" & vResultRow & ":D" & vResultRow).Font.ColorIndex = 53
            .Range("A" & vResultRow & ":D" & vResultRow).Font.Bold = True
            vResultRow = vResultRow + 1
            .Range("A" & vResultRow).Value = "Step "&objExcel.Sheets(cSheet1Name).Range("D" & vSummaryRow).Value
        Else
            .Range("A" & vResultRow).Value = "Step "&objExcel.Sheets(cSheet1Name).Range("D" & vSummaryRow-1).Value
        End If
        .Range("B" & vResultRow).Value = vStatus
        .Range("C" & vResultRow).Value = vDetails
        .Range("D" & vResultRow).Value = vRemarks
        
        Select Case vUCaseStatus
            Case "PASS"
                .Range("B" & vResultRow).Font.ColorIndex = 50
            Case "FAIL"
                .Range("A" & vResultRow & ":E" & vResultRow).Font.ColorIndex = 3
            Case "WARNING"
                .Range("A" & vResultRow & ":E" & vResultRow).Font.ColorIndex = 5
        End Select

        'Set the Borders
        .Range("A" & vResultRow & ":D" & vResultRow).Borders(1).LineStyle = 1
        .Range("A" & vResultRow & ":D" & vResultRow).Borders(2).LineStyle = 1
        .Range("A" & vResultRow & ":D" & vResultRow).Borders(3).LineStyle = 1
        .Range("A" & vResultRow & ":D" & vResultRow).Borders(4).LineStyle = 1        
    End With
    
    objExcel.Sheets(cSheet1Name).Select
    objExcelBook.Save
    objExcel.Quit
    Set objExcelBook = Nothing
    Set objExcel = Nothing    
End Sub


'==================================================
' Create Excel Report File
'==================================================
Sub CreateExcelReport(ByRef vFileName)
    Dim fso                ' object of FSO
    Dim objExcel        ' object of Excel
    
    Set fso = CreateObject("scripting.FileSystemObject")
    Set objExcel = CreateObject("Excel.Application")
    If objExcel Is Nothing Then MsgBox "系统未检测到安装了EXCEL！"
    objExcel.DisplayAlerts = False
'    objExcel.Visible = True        'Debug

'    生成报告并设置格式
    If  Not fso.FileExists(varReportName) Then
        objExcel.Workbooks.Add
        ' Test Summary Sheet
        objExcel.Sheets.Item(1).Select
        With objExcel.Sheets.Item(1)
            .Name = cSheet1Name
'            设置显示方式
            .Columns("A:A").ColumnWidth = 10
            .Columns("B:B").ColumnWidth = 45
            .Columns("C:C").ColumnWidth = 25
            .Columns("D:D").ColumnWidth = 25
            .Columns("A:D").WrapText = False
            .Columns("C:C").HorizontalAlignment = -4108        ' 4，右对齐；-4108，居中
            .Range("C3:C8").HorizontalAlignment = 4
			.Range("C9:C9").HorizontalAlignment = 1
            .Range("B10:D10").HorizontalAlignment = -4108
            .Range("A:D").VerticalAlignment = -4160
            .Range("B2:C2").Merge
            .Range("B1:C1").Interior.ColorIndex = 31
            .Range("B2:C2").Interior.ColorIndex = 31
            .Range("B10:D10").Interior.ColorIndex = 31
            .Range("B3:C9").Interior.ColorIndex = 24
            .Range("B2:C2").Font.ColorIndex = 19
            .Range("B10:D10").Font.ColorIndex = 19
            .Range("B3:C9").Font.ColorIndex = 12
            .Range("B2:B9").Borders(1).LineStyle = 1    ' 1，单线；-4115，点线；-4119，双线
            .Range("C2:C9").Borders(2).LineStyle = 1
           ' .Range("B2:C2").Borders(3).LineStyle = 1
            .Range("B8:C9").Borders(4).LineStyle = 1
            .Range("B3:C9").Borders(3).LineStyle = 1
            .Range("C3:C9").Borders(1).LineStyle = 1
            .Range("B2:B9").Font.Bold = True
            .Range("B10:D10").Font.Bold = True
            .Range("A:D").Font.Name = "Arial"
            .Range("A:D").Font.Size = 10
			.Range("B11:B500").Font.Size = 10
            .Range("B2").Font.Size = 12
            .Range("B10:D10").Font.Size = 12
'            设置单元格内容
            .Range("B2").Value = "结果概览"
            .Range("B3").Value = "测试日期:"
            .Range("B4").Value = "测试开始时间:"
            .Range("B5").Value = "测试结束时间:"
            .Range("B6").Value = "测试用时: "   
            .Range("B7").Value = "测试用例数:"
            .Range("B8").Value = "总运行步骤:"
			 .Range("B9").Value = "测试机器:"
            .Range("C3").Value = Date&" "&WeekDayName(Weekday(Date)) 
            .Range("C4").Value = Time
            .Range("C5").Value = Time
            .Range("C6").Value = "=R[-1]C-R[-2]C"
            .Range("C6").NumberFormat = "[h]:mm:ss;@"
            .Range("C7").Value = "0"
            .Range("C8").Value = "0"
			.Range("C9").Value =GetInfo()
            .Range("B10").Value = "用例名称"
            .Range("C10").Value = "测试结果"
            .Range("D10").Value = "测试步骤"
           ' .Columns("B:D").Autofit
            .Range("B11").Select
           objExcel.ActiveWindow.FreezePanes = True
        End With
        ' Test Result Sheet
        objExcel.Sheets.Item(2).Select
        With objExcel.Sheets.Item(2)
            .Name = cSheet2Name
            'Set color and Fonts        
            .Columns("A:A").ColumnWidth = 45
            .Columns("B:B").ColumnWidth = 45
            .Columns("C:D").ColumnWidth = 55
            .Columns("C:D").WrapText = True
            .Columns("A:B").HorizontalAlignment = -4108        ' 4，右对齐；-4108，居中
            .Range("A:D").VerticalAlignment = -4160
            .Range("A:D").Font.Name = "Arial"
            .Range("A1:D1").Interior.ColorIndex = 31
            .Range("A1:D1").Font.ColorIndex = 19
            .Range("A1:D1").Borders(1).LineStyle = 1 
            .Range("A1:D1").Borders(2).LineStyle = 1
            .Range("A1:D1").Borders(3).LineStyle = 1
            .Range("A1:D1").Borders(4).LineStyle = 1
            .Range("A1:D1").Font.Bold = True
'            设置单元格内容
            .Range("A1").Value = "测试用例"
            .Range("B1").Value = "运行结果"
            .Range("C1").Value = "结果说明"
            .Range("D1").Value = "结果备注"
            .Range("A2").Select
           objExcel.ActiveWindow.FreezePanes = True
        End With
    
        objExcel.ActiveWorkbook.SaveAs vFileName
        objExcel.Quit
    End If
End Sub

2、演示

直接调用上面的两个方法即可：createExcelReport用于创建报告，ExcelReport用于添加数据。调用后的效果：

231001_H5AP_2391658.png

点击报告连接：AlcFrameTest-Action1，则会挑到详细结果页：

231102_14VT_2391658.png

 

转载于:https://my.oschina.net/u/2391658/blog/709407

weixin_34062329
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
vbs自动化测试脚本
06-01
非常好的vbscript系统自动化测试脚本，包含了一些对excel操作的封装函数，给大家参考，希望对大家有用！
自动化测试框架-测试报告Reporter格式源码
07-20
自动化测试框架-测试报告Reporter格式源码
vbs编译器测试版
etanya的博客
11-29 318
大家吼呀，还记不记得我们上一篇文章最后买下的一篇伏笔？ “以后可能会做不开源的图形库版本。” 是的，今天，他来了！ Vbs编译器初代测试版！ 首先我们先来讲一下我做这个编译器的思路、原理和遇到的坑和难点。 首先我们来讲到我们的思路 首先按照上一期我们所写的函数，在有代码的前提条件下执行代码毫不费力。 那么编译器主要的功能就是书写代码+编译代码 这里的话为了实现左边巨大的编译按钮和输入时的退格键，我选择了我常用的ege图形库来进行图形化设计（ege自带的输入框真的好用！）。因为使用了图形库，所以以后改进的机
vbs让测试简单起来
dugu的简单生活
06-02 2993
       测多播很长时间了，从最开始igmp snooping，igmp，到pim-dm，再到pim-sm， rfc一天比一天熟悉了，但是好像自己的测试效率也没有提高多少，回想了一下，多播测试的时候，在上层协议测过多遍的情况下，多播的问题多数不再是协议了，而是不同产品的底层芯片和上层同步上可能出现问题。这里就出现了问题，不同产品，芯片和上层的映射关系多数都是不一样的，很多时间，我们都花在去查找
vbs类生成xml文件
非专业码农
08-09 787
有两文件:objXML.asp:测试文件clsXML.asp:vbs类文件代码:objXML.aspDim objXML, strPath, strSet objXML = New clsXMLstrPath = Server.MapPath(".") & "/New.xml"objXML.createFile strPath, "Root"Or If using an existi
VBS转EXE工具.rar
最新发布
05-14
VBS（Visual Basic Script）是一种基于Visual Basic的脚本语言，常用于自动化任务、系统管理以及网页交互。然而，由于其文件默认是以文本形式...因此，使用这类工具时应谨慎，并确保对生成的EXE文件进行充分的测试。
vbs算命测试一下你上辈子是男是女
09-06
这个VBS脚本的目的是娱乐，它展示了如何使用基础的VBS编程技巧来创建一个简单的互动应用。虽然这个算命脚本没有实际的预测功能，但它演示了VBS中如何处理字符串、数组、随机数以及与用户交互的基本方法。
VBS加密免杀器 下载
10-30
虽然VBS加密免杀器在某些情况下可能被用于合法目的，例如测试安全系统的防御能力，但更多的是被恶意使用，用于传播病毒、木马或其他类型的恶意软件。 #### 合法用途 - **安全研究**：安全研究人员可能会使用这些...
自动生成【排休表】分白夜班.vbs
03-11
'排休时间范围：当月生成下月排休表 '编辑人名方式：脚本同目录【同事.ini】文件 '空行处理方式: 制表符【Tab】保留，作为一行表格。 完全空格行或者空行，直接忽视。 '[样例初始人名]仅共参考，可以不修改，...
vbs编程和自动化测试
09-21
很好的vbs编程实例和vbs脚本教程，学完后可以看看自动化测试的文档，对自动化测试的学习很有帮助。。。
测试脚本自动运行的VBS 脚本
巅峰测试
03-02 3751
<br />Dim qtApp <br />Set qtApp=CreateObject("QuickTest.Application")<br />qtApp.Launch<br />qtApp.visible=True<br />qtApp.Open "D:/SMETestingAnyone"<br />qtApp.Test.Run<br />qtApp.Quit<br />Set qtApp=Nothing
一个测试用的VBS脚本样例
smile的专栏
04-07 2274
Const KENTER="{ENTER}" Const KALTF4="%{F4}" Const KUP="{UP}" Const KDOWN="{DOWN}" Const KLEFT="{LEFT}" Const KRIGHT="{RIGHT}" Const ONE_SECOND=1000 Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "FreeView" WScript.Sleep ONE_SE
使用VBScript开发自动化测试脚本2
aken - 测试点亮人生
02-28 1127
使用VBScript开发自动化测试脚本2作者: aken   来源: Test8848.net3、InputBox函数描述在对话框中显示提示，等待用户输入文本或单击按钮，并返回文本框内容。语法InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])  示例：这个函数主要用于
标准Windows控件的常规测试方法及VBS脚本代码
linud的专栏
06-01 1303
标准Windows控件包括对话框、按钮、静态文本及图像控件、日期时间选择控件，单选按钮、多选框、下拉框、Windows窗体控件、输入框和加密输入框、列表、列表视图、菜单、滚动条、数值选择控件、状态栏、页签、工具栏、树及其他控件和控件状态，现分别按照VBS名称及常规测试方法总结如下： 1、使用Exist属性判断控件是否存在 Rem 判断某个控件是否存在 If Dialog（Login）.E
如何编程实现让打印机打印测试页
GyaoG的专栏
11-10 1481
每个打印机都有打印测试页，但是如何使用什么API来实现让指定的打印机打印测试页呢？
VBS生成Excel报告的常用操作
smmi的专栏
08-06 221
使用QTP自动化测试结束后，经常需要将测试结果写入Excel中，这里就把一些常用对Excel操作的方法进行归纳、整理，方便使用时查阅。支持Office Excel 2003版本，不支持2007版本。   On Error Resume Next Dim FileName, SheetName, Text, ExcelApp, ExcelBook, ExcelSheet FileName ...
通过VB脚本实现PDM与EXCEL互转
Aikes Blog
08-21 1065
在软件开发过程中，很多时候都需要用需求文档中给出的表结构进行数据建模。若表数量、单位表字段数量较少还可以接受，一旦遇到十几张大表真的是心力交瘁。 以下是本人整理改进后的两套VBS脚本，通过Power Designer工具中Script命令行执行脚本，实现PDM与Excel之间的模型互转，希望可以帮到大家！ Excel格式样例： Excel -> PD...
VBS实用实例大全：80个操作命令汇总
"这个Word文档提供了80个VBS脚本实例，涵盖了广泛的操作，包括但不限于文件操作（如读写、复制、删除）、文件夹管理（创建、复制、删除）、系统信息获取（如路径、注册表、MAC地址）、网络操作（网页浏览、邮件发送...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值