基于VBS的ONU自动化测试实例

【实例简介】

基于VBS的ONU自动化测试实例，自动输出测试报告。

【实例截图】

【核心代码】

'创建测试报告
Sub ExcelReport()
Dim Mcon
Addr = "E:\work\test\TestExcel\1.xls"
ProName = "TeleExplorer.exe"
Set oExcel = CreateObject("Excel.Application")                                     '创建Excel应用对象
Set oWorkbooks = oExcel.Workbooks.Open ( Addr   )                                  '打开Excel
sActiveSheetName = oWorkbooks.ActiveSheet.Name                                     '获取当前活动工作表名
Set oSheet = oWorkbooks.Sheets(sActiveSheetName)                                   '创建工作表对
'保存到TXT
Set fso = CreateObject("Scripting.FileSystemObject")'
Set f1 = fso.OpenTextFile("D:\TestReport.txt", 8,True)'

iRow = 2                                                                           '设置Excel单元格行
iCol =2                                                                            '设置Excel单元格列
'testItem = oSheet.Cells(3,1).Value                                                 '获取测试项目
 Mcon = MsgBox ("Tests complete, result is OK?",vbYesNo vbInformation,"Confirmation")
 
   if Mcon  = vbYes Then 
    oSheet.Cells(iRow 3,iCol 3).Value = "OK" 
    f1.writeline ( username " " name ":PASS" )       
        f1.close  
   Else 
    oSheet.Cells(iRow 3,iCol 3).Value = "NG" 
    f1.writeline ( username " " name ":Fail" )       
        f1.close 
   end if     
oExcel.DisplayAlerts = False 
oExcel.ActiveWorkbook.SaveAs Addr                                            '保存工作
oExcel.DisplayAlerts = True
oExcel.WorkBooks.Close
Set oExcel = Nothing
Set oSheet = Nothing
set oWorkbooks = Nothing