Leer excel con ADODB

    Dim str_Conexion As String
    Dim ado_Conexion As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim objExcel As Excel.Application
    Dim objWorkBook As Excel.Workbook
           
    str_Conexion = "Data Source=" & f & ";"
       
    Set ado_Conexion = CreateObject("ADODB.Connection")
   
    ado_Conexion.Provider = "Microsoft.ACE.OLEDB.12.0"
    str_Conexion = str_Conexion & "Extended Properties=Excel 12.0"
    ado_Conexion.Open str_Conexion
       
           
    'obtengo el nombre de la 1er hoja
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkBook = objExcel.Workbooks.Open(f)
           
    nombre_hoja = objWorkBook.Worksheets(1).Name
       
    objWorkBook.Close
    Set objExcel = Nothing
    Set objWorkBook = Nothing
       
    str_Consulta = _
        "SELECT * from [" & nombre_hoja & "$]"
   
   
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open str_Consulta, ado_Conexion
   
    Cells.Select
    Selection.ClearContents

    Dim fila As Integer
   
    fila = 1
   
    While Not rs.EOF
        Cells(fila, 1).Value = rs.Fields(0)
        Cells(fila, 7).Value = rs.Fields(6)
       
        fila = fila + 1
       
        rs.MoveNext
    Wend
   
    Set rs = Nothing
    Set ado_Conexion = Nothing