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

Arrays asociativos con VBA y VBScript

Agregar una referencia a Microsoft Scripting Runtime

Ejemplo:


    Dim dict As New Dictionary
  
    dict.Add "abc", "prueba 1"
    dict.Add "xxx", "prueba 2"
  
    MsgBox (dict("abc"))



http://www.kamath.com/tutorials/tut009_dictionary.asp