这个报告输出是根据网上的Reporter9框架修改出来得，简化了一些，我个人觉得实用性比较高一点，最近看到论坛里面很多人问这个问题，希望能帮到大家'************************************************************************************************'******************XXXXXXXXXxXXXXX有限公司--XXXXX系统自动化脚本******************************'************************************************************************************************'****************脚本名称:报告模块********************'****************脚本版本:1.0********************'****************脚本描述:测试报告结果输出********************'****************脚本作者:********************'****************编写时间:********************'****************脚本修改:********************'****************修改时间:********************'****************修改备注:********************'************************************************************************************************'************************************************************************************************'参数:ReportExcelFile报告输出的路径PublicReportExcelFileReportExcelFile=Environment("TestDir")&"\"&"测试结果"&Date&"-"&Hour(Now)&Minute(Now)&Second(Now)&".xls"'描述：GetIP捕获运行脚本的电脑ＩＰPublicFunctionGetIPComputerName="."DimobjWMIService,colItems,objItem,objAddressSetobjWMIService=GetObject("winmgmts:\\"&ComputerName&"\root\cimv2")SetcolItems=objWMIService.ExecQuery("Select*FromWin32_NetworkAdapterConfigurationWhereIPEnabled=True")ForEachobjItemincolItemsForEachobjAddressinobjItem.IPAddressIfobjAddress<>""thenGetIP=objAddressExitFunctionEndIfNextNextEndFunction'描述：Report报告函数'参数:sStatus报告的状态分别为FAIL和PASS'参数:sDetails注释，用来形容测试内容PublicFunctionReport(sStatus,sDetails)'定义变量DimfsoDimoExcelDimExcelFileDimTestcaseNameDimobjWorkBookDimobjSheetDimNewTCDimStatusSetfso=CreateObject("scrīpting.FileSystemObject")SetoExcel=CreateObject("Excel.Application")Status=UCase(sStatus)oExcel.Visible=false'True'设置Excel报告样式IfNotfso.FileExists(ReportExcelFile)ThenoExcel.Workbooks.Add'获取HYPERLINK"javascript:;"\t"_self"工作簿的第一个Sheet页SetobjSheet=oExcel.Sheets.Item(1)oExcel.Sheets.Item(1).SelectWithobjSheet.Name="测试结果"'设置列宽.Colu