Con esta función vamos a Recorrer filas de un fichero Excel hasta el final de este, y Cerrar y liberar el excel de memoria.
Private sub RecorrerExcel()
Dim vString1 As String = "-vacio-"
Dim CONTENIDO As String = "-"
Dim Fila As Long = 4
Try
Dim oExcel As Object
Dim oLibro As Object
Dim oHoja As Object
Dim oRango As Object
oExcel = CreateObject("Excel.Application")
' oLibro = oExcel.Workbooks.Add
oLibro = oExcel.Workbooks.Open("RUTA DEL EXCEL.XLSX")
'oHoja = oLibro.ActiveSheet ' ABRE LA HOJA PRIMERA
oHoja = oLibro.Sheets("HOJA1")
While CONTENIDO <> ""
CONTENIDO = oHoja.Cells(Fila, 1).value
vString1 = vString1 & oHoja.Cells(Fila, 2).value
vString1 = vString1 & oHoja.Cells(Fila, 3).value
vString1 = vString1 & oHoja.Cells(Fila, 4).value
Fila = Fila + 1
' MsgBox(vString1)
End While
oRango = Nothing
oHoja = Nothing
oLibro = Nothing
oExcel.quit()
oExcel = Nothing
txtMensajes.Text = vString1
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub