Private Sub ExcelEarlyBinding2()

Dim xlAp As New Excel.Application
Dim xlWb As Excel.Workbook
    Dim NumRow As Currency
    Dim NumCol As Integer
    
Set xlWb = xlAp.Workbooks.Open(iPath & iFile)
Set rgn = xlWb.Sheets(ilist).Cells(1, 1).CurrentRegion
    NumRow = rgn.Rows.Count
    NumCol = rgn.Columns.Count

    For r = 1 To NumRow
        For c = 1 To NumCol
            iData = rgn.Cells(r, c).Value
            MsgBox idate
        Next c
    Next r

xlWb.Close False
xlAp.Quit

Set xlWb = Nothing
Set xlAp = Nothing

End Sub

Private Sub ExcelEarlyBinding2()

   Dim xlAp As New Excel.Application
   Dim xlWb As Excel.Workbook
   iPath  = "С:\"
   MyBook = "MyBook.xls"
   Set xlWb = xlAp.Workbooks.Open(iPath & MyBook)
   
   тут делай свои манипуляции 

   xlWb.Close False
   xlAp.Quit

   Set xlWb = Nothing
   Set xlAp = Nothing

End Sub