Hi,
Below is the solution,
Use the above code at the end of out script.
- Vinod
Below is the solution,
Code:
Set qtApp = CreateObject("QuickTest.Application")
Set qtTest = qtApp.Test
Run_Status = qtTest.LastRunResults.Status ' This will give you the status of the Run i.e Pass or Fail.
Set appExcel = CreateObject("Excel.Application")
Set objWorkBook = appExcel.Workbooks.Add '
Set objWorkSheet = objWorkBook.WorkSheets.Add
appExcel.Cells(2,2).Value = Run_Status'= This will update the status of the test in 2nd row and 2nd column in the worksheet
appExcel.ActiveWorkbook.SaveAs "c:\Results.xls"
appExcel.QuitUse the above code at the end of out script.
- Vinod