09-03-2010, 04:24 PM
Hi Galstar,
I can give you a one user defined function so that wherever you write Reporter.ReportEvent just add one more function which i have mentioned here so that you can see all the test results in excel.
Find the below function.
Please let me know for further clarification.
Regards,
Venkat.Batchu.
I can give you a one user defined function so that wherever you write Reporter.ReportEvent just add one more function which i have mentioned here so that you can see all the test results in excel.
Find the below function.
Code:
Function ReportResultToExcel(Testcase, Functionality,Description,Result)
Set objExcel=CreateObject ("Excel.Application")
Set objWorkBook=objExcel.Workbooks.Open("D:\xxxxxAUTOMATION\Test Result\TestResults.xls")
Set objWorkSheet=objExcel.Worksheets("Sheet1")
objExcel.DisplayAlerts=False
rc=objWorkSheet.UsedRange.Rows.count
rc=rc+1
objWorkSheet.Cells(rc,1).value=Testcase
objWorkSheet.Cells(rc,2).value=Functionality
objWorkSheet.Cells(rc,3).value=Description
objWorkSheet.Cells(rc,4).value=Result
objWorkBook.Save
objWorkBook.Close
Set objWorkBook=Nothing
Set objWorkSheet=Nothing
Set objExcel=Nothing
End Function
Please let me know for further clarification.
Regards,
Venkat.Batchu.