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
Print Friendly, PDF & Email
3 comentarios en «VB.Net – Recorrer filas de un fichero Excel»
  1. Muchas gracia, es lo que estaba buscando.
    La última linea “txtMensajes.Text = vString1” es para mostrar resultado, ¿verdad?

  2. Hola.

    A mí el único error que me devuelve, es “No se puede crear el componente ActiveX”, pero no sé cómo solucionarlo.

  3. Hola Andrés.
    Disculpa que tardara en contestar.
    “No se puede crear el componente ActiveX “
    Esto es por que no tienes referencias a Excel declaradas en Visual.

    En Referencias:

    Microsoft.Office.Interop.Excel –> C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Excel\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Excel.dll
    (Debes localizar donde está en tu equipo, depende la versión de Office instalada).
    Al compilar el proyecto, la añadirá para el cliente final.

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *