Macro Excel-Access

[ARMIN2010]

Hola
Una disculpa si este post no va aqui pero es muy urgente.
Lo que pasa es q soy nuevo en esto de la programacion y entrando a una escuela de Informatik me piden una macro que jale registros de una base de datos de Access a una hoja de excel.
al principio pense q eso no se podia, pero al tiempo supe q si.
Todo esto en Office 2007
Por eso necesito su ayuda para tal trabajo, el muy importante si me pueden orientar a realizarlo grax
Armin

[Insomnia]

Hola

Yo tengo office 2003, pero lo que puedes hacer es grabar una macro (Herramientas / Macro / Grabar Nueva Macro) y luego realizar la conexión desde las opciones de Excel (Datos / Obtener datos externos / Nueva consulta de base de datos)

Luego puedes ver el código generado desde Herr / Macro / Macros).

El código que me ha salido a mi es el siguiente, que al leerlo es bastante intuitivo:

Código:

    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=MS Access Database;DBQ=C:\AA.mdb;DefaultDir=C:\;Driv" _
        ), Array("erId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), _
        Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT Tabla1.Nom, Tabla1.Ape, Tabla1.Tel" & Chr(13) & "" & Chr(10) & "FROM `C:AA`.Tabla1 Tabla1" & Chr(13) & "" & Chr(10) & "ORDER BY Tabla1.Nom" _
        )
        .Name = "Consulta desde MS Access Database"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With

--Saludos--