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