Excel - Duda en llamar una consulta desde query

   
Vista:

Duda en llamar una consulta desde query

Publicado por Damian Perez (1 intervención) el 05/10/2014 02:45:25
Estoy una consulta por medio de un query hice una macro para llamar los archivos pero al momento de llamar la hoja de excel me aparece un error, espero puedan ayudarme, necesito saber como cargar el archivo en excel donde esta mi base de datos para correr el query.

les dejo la macro

Dim DIRECTORIO
DIRECTORIO = ActiveWorkbook.Path
Dim ARCHIVO
ARCHIVO = DIRECTORIO + "\" & "BASE CONSULTA.xlsb"

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
"ODBC;DSN=Excel Files;DBQ=ARCHIVO;DefaultDir=directorio;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;" _
)), Destination:=Range("$A$1")).QueryTable
.CommandText = Array( _
"SELECT * FROM `AUXILIARES$` `AUXILIARES$`, `CATALOGO$` `CATALOGO$`" & Chr(13) & "" & Chr(10) & "WHERE `AUXILIARES$`.`CUENTA` = `CATALOGO$`." _
, "CUENTA")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Tabla_Consulta_desde_Excel_Files1"
.Refresh BackgroundQuery:=False
End With



End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder