Dim qtApp Dim qtTest Dim qtResultsOpt Dim GenerateDateTime,TestResult,BakTestResult GenerateDateTime =Replace(FormatDateTime(Date(),2),"/","_") & "-" & Replace(FormatDateTime(Time(),3),":","_") '自定義一個獲取當前時間的字符串 TestResult = "C:\AutoTest\TA_AutomationTest\1_Report\ExcelReport\Test_Result.xls" '獲得測試結果 BakTestResult = "C:\AutoTest\TA_AutomationTest\1_Report\ExcelReport\Test_Result" & GenerateDateTime & ".xls" Set qtApp = CreateObject("QuickTest.Application") ' 建立QTP的應用對象 qtApp.Launch ' Start QuickTest qtApp.Visible = True ' 讓QTP運行過程可見 ' 設置當運行過程中如果出錯，抓圖。 qtApp.Options.Run.ImageCaptureForTestResults = "OnError" ' 快速運行。 qtApp.Options.Run.RunMode = "Fast" qtApp.Options.Run.ViewResults = False qtApp.Open "C:\AutoTest\TA_AutomationTest\C955\3_QTPScript\0_MainScript\MainScript2", True ' 以只讀的方式開打開QTP主函數 ' 為Test設置運行 Set qtTest = qtApp.Test Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' 建立測試結果 qtResultsOpt.ResultsLocation = "C:\AutoTest\TA_AutomationTest\1_Report\" & GenerateDateTime ' 建立起QTP自動的測試結果路徑 'qtResultsOpt.ResultsLocation = "D:\temp2\res1" qtTest.Run qtResultsOpt ' 運行QTP主函數 qtTest.Close ' 關閉主函數 qtApp.Quit ' 退出 Set qtResultsOpt = Nothing ' 釋放對象 Set qtTest = Nothing Set qtApp = Nothing Set fso = CreateObject("Scripting.FileSystemObject") fso.MoveFile TestResult, BakTestResult '備份當前運行完腳本后的測試結果 Set fso = Nothing |