1. Add sheet in the datatable with required columns , here I am using “Result” as Sheet name and column names are ActionName, StepName, StepDescription, StepResult. For this created
2. Created one more
3. At the end of the test add the datatable.Export “ file path” Statement.
'Call the Function for Addsheet in the data table
Fnaddsheet
' call the function for step result store in the data table sheet
' Enter Event Status in Digits (0-Pass , 1- Fail, 2- Done, 3- Warning
fnReproter 0,"step first","Passed","passed details"
fnReproter 1,"step first","Passed","passed details"
fnReproter 2,"step first","Passed","passed details"
fnReproter 3,"step first","Passed","passed details"
'Column names in the Result sheet ActionName, StepName, StepDescription, StepResult
Function fnAddSheet
Datatable.AddSheet "Result"
Datatable.GetSheet("Result").AddParameter "ActionName",""
Datatable.GetSheet("Result").AddParameter "StepName",""
Datatable.GetSheet("Result").AddParameter "StepDescription",""
Datatable.GetSheet("Result").AddParameter "StepResult",""
' Do you want to import your own sheet then use below statement
' Datatable.ImportSheet "C:\Result.xls",1,"Result"
End Function
Function fnReproter(strEventStatus,StepName,StepResult,StepDetails)
Reporter.ReportEvent strEventStatus, StepName & " :- " & StepResult, StepDetails
' ActionName, StepName, StepDescription, StepResult
intRowCnt=Datatable.GetSheet("Result").GetRowCount
Reporter.ReportEvent micDone,"Result sheet row count",introwcnt
Datatable.GetSheet("Result").SetCurrentRow (intRowcnt+1)
Datatable.Value("ActionName","Result")=Environment.Value("ActionName")
Datatable.Value("StepName","Result")= StepName
Datatable.Value("StepDescription","Result")=StepDetails
Datatable.Value("StepResult","Result")= StepResult
End Function
.
