Dim workbook1 As ReadableWorkbook
Dim timesSheet As ReadableSheet
workbook1.Initialize(File.DirAssets, "locktimes.xls")
timesSheet = workbook1.GetSheet(0)
'DateTime.DateFormat = "MM.dd.yyyy"
Dim datetosearch As Long = DateTime.DateParse("01/05/2016")
Log($"Date to search: ${DateTime.Date(datetosearch)}"$)
If timesSheet.RowsCount > 0 Then
For row = 0 To timesSheet.RowsCount -1
Log($"Checking row: ${row}"$)
If timesSheet.GetCellValue(0, row) = DateTime.Date(datetosearch) Then
'day 1st Lock HW Height Last Lock Lock Close
Dim day As String = timesSheet.GetCellValue(1, row)
Dim firstlock As String = timesSheet.GetCellValue(2, row)
Dim hw As String = timesSheet.GetCellValue(3, row)
Dim height As String = timesSheet.GetCellValue(4, row)
Dim last As String = timesSheet.GetCellValue(5, row)
Dim lock1 As String = timesSheet.GetCellValue(6, row)
Dim lock2 As String = timesSheet.GetCellValue(7, row)
Dim close As String = timesSheet.GetCellValue(8, row)
'For col = 1 To timesSheet.ColumnsCount -1
' Log(timesSheet.GetCellValue(col, row))
'Next
End If
Next
End If