Visual Basic - MANIPULAR EXCEL DESDE VISUAL BASIC

Dim E As Excel.Application

Dim Libro As Excel.Workbook

Dim Hoja As Excel.Worksheet

Dim Fila As Integer

Dim Col As Integer

Dim NumFilas As Integer

Dim NumCols As Integer

    Set E = CreateObject("Excel.Application")

    Set Libro = E.Workbooks.Open(Ruta_del_fichero_excel, , True) 'el 3º campo le indica que se abra en solo lectura

    Set Hoja = Libro.Worksheets("Hoja1") 'aqui el nombre que sea.. o numericamente

    NumFilas = Hoja.UsedRange.Rows.Count     'Asi calculamos el nº de filas que tiene

    NumCols = Hoja.UsedRange.Columns.Count  'Asi calculamos el nº de columnas que tiene

    For Fila = 1 To NumFilas

        For Col = 1 To NumCols

            dato = Hoja.Cells(Fila, Col)

            ....'aqui hacemos lo que queramos con los datos

        Next

    Next

    Set Hoja = Nothing