Ayuda, llamar una base de access desde una macro en excel

[estratovarius]

Hola compas vacunos, con una pregunta, si alguien me puede ayudar, estoy haciendo una macro pero quiero llamar desde la macro a una base de datos de access, mas que macro estoy programando una pequeña interface para que salga el resultado de la consulta en excel, si alguien me puede ayudar

saludos

 

[Zephyros]

Me parece que es mejor crear la consulta en Access y una vez obtenida, exportarla a Excel, es menos relajo.

 

[aleph97]

Grabé una macro para que importes una base de datos, solo cambia los datos particulares de tus datos de access.

Espero que no sea muy tarde para la respuesta.

With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=\Mis Documentos\Neptuno.mdb;Mode=Share Deny Write;Exten" _
, _
"ded Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDBatabase Password="""";Jet OLEDB:Engine Type=5" _
, _
";Jet OLEDBatabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Databa" _
, _
"se Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDBon't Copy Locale on Compact=Fa" _
, "lse;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"), _
Destination:=Range("A1"))
.CommandType = xlCmdTable
.CommandText = Array("Facturas")
.Name = "Neptuno"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = "\Mis Documentos\Neptuno.mdb"
.Refresh BackgroundQuery:=False