qtp：excel报告输出格式,源码

《qtp：excel报告输出格式,源码》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、这个报告输出是根据网上的Reporter9框架修改出来得，简化了一些，我个人觉得实用性比较高一点，最近看到论坛里面很多人问这个问题，希望能帮到大家'************************************************************************************************'******************XXXXXXXXXxXXXXX有限公司--XXXXX系统自动化脚本******************************'*********

2、***************************************************************************************'****************      脚本名称:报告模块                                  ********************'****************      脚本版本:1.0                                       *******************

3、*'****************      脚本描述:测试报告结果输出　　　　　　　　　　      ********************'****************      脚本作者:                        ********************'****************      编写时间:                               ********************'****************      脚本修改:          

4、                                 ********************'****************      修改时间:                                           ********************'****************      修改备注:                                           ********************'**************************

5、**********************************************************************'************************************************************************************************'参数:ReportExcelFile　报告输出的路径PublicReportExcelFileReportExcelFile=Environment("TestDir")&""&"测试结

6、果"&Date&"-"&Hour(Now)&Minute(Now)&Second(Now)&".xls"'描述：GetIP   捕获运行脚本的电脑ＩＰPublicFunctionGetIP   ComputerName="."   DimobjWMIService,colItems,objItem,objAddress   SetobjWMIService=GetObject("winmgmts:\"&ComputerName&"rootcimv2")   SetcolItems=objWMIService.Ex

7、ecQuery("Select*FromWin32_NetworkAdapterConfigurationWhereIPEnabled=True")   ForEachobjItemincolItems       ForEachobjAddressinobjItem.IPAddress           IfobjAddress<>""then               GetIP=objAddress               ExitFunction           EndIf       Next  

8、 NextEndFunction'描述：Report      报告函数'参数:sStatus     报告的状态分别为FAIL和PASS'参数:sDetails    注释，用来形容测试内容PublicFunctionReport(sStatus,sDetails) '定义变量 Dimfso DimoExcel DimExcel