VB.Net – Recorrer filas de un fichero Excel

VB.Net – Recorrer filas de un fichero Excel

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

2 comentarios

  1. Angel ALCAIDE

    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