Forum Discussion
shankar_r
9 years agoCommunity Hero
Hi,
Simple sample for validating content in excel.
Sub CompareValue(str_ComVal)
Dim Excel
Set Excel = Sys.OleObject("Excel.Application")
Excel.Workbooks.Open("D:\Users\Documents\Testss.xlsx")
If Excel.ActiveWorkbook.Sheets.Item("Sheet1").Range("A1") = str_ComVal Then
Log.Checkpoint("Matched")
Else
Log.Error("Not matched")
End If
Excel.Quit
Set Excel = Nothing
End Sub