Attribute VB_Name = "ReadAgentWorkingPerfWorkbook"


Function Run(ByRef sPath As String) As Variant
    Dim wb As Workbook
    Dim arrResults(999, 20) As Variant
    Dim row() As Variant
    Dim i As Integer
    Dim row_count As Integer
    Dim firstRow As Boolean
    Dim rw As Range

    ' Try to open the workbook
    On Error Resume Next
    Set wb = Workbooks.Open(sPath)
    On Error GoTo 0

    ' Check if the opening was successful
    If wb Is Nothing Then
        MsgBox "Could not open workbook at " & sPath, vbCritical, "Error"
        Exit Function
    End If

    row_count = 0
    If Not wb.Sheets("Sheet1") Is Nothing Then
        ' Read data from Sheet1
        For Each rw In wb.Sheets("Sheet1").UsedRange.Rows
                  ' Check if first cell is empty
            If Trim(rw.Cells(1)) <> "" Then
                ' Print value of first column of current row to immediate window
                row_count = row_count + 1
            Else
                ' First cell in current row is empty, so break the loop
                Exit For
            End If

        Next rw
    End If

    ' read table content
    i = 1
    firstRow = True

    ' Look for Sheet1 and stop execution if it doesn't exist
    If Not wb.Sheets("Sheet1") Is Nothing Then
        ' Read data from Sheet1
        For Each rw In wb.Sheets("Sheet1").UsedRange.Rows
            ' Check if first cell is empty
            If (firstRow = False) Then
              If (Trim(rw.Cells(1)) <> "") Then
                  ' Print value of first column of current row to immediate window
                  arrResults(i, 1) = rw.Cells(1).Value
                  arrResults(i, 2) = rw.Cells(2).Value
                  arrResults(i, 3) = rw.Cells(3).Value
                  arrResults(i, 4) = rw.Cells(4).Value
                  arrResults(i, 5) = rw.Cells(5).Value
                  arrResults(i, 6) = rw.Cells(6).Value

                  i = i + 1
              Else
                  ' First cell in current row is empty, so break the loop
                  Exit For
              End If
            End If
            firstRow = False

        Next rw

    Else
        MsgBox """Sheet1"" does not exist in workbook at " & sPath, vbExclamation, "Warning"
        Exit Function
    End If

    Debug.Print arrResults(150, 2)

    wb.Close savechanges:=False

    Run = Array(arrResults, row_count - 1)
End Function