Como uso ADO para crear una consulta en el excel ?

El macro que sigue lo hice con la grabadora a traves del menu, Datos,
Obtener Datos Externos, Nueva consulta de Base de Datos y luego cree un
Origen de Datos de tipo DBase, seleccionando el directorio donde esta el
.dbf.

Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 29/07/2003 por Daniel Preliasco
'

'
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;CollatingSequence=ASCII;DBQ=C:\PROYECTOS VB VARIOS\VB
VARIOS\DBF;DefaultDir=C:\PROYECTOS VB VARIOS\VB VARIOS\DBF;Deleted=1;Driv" _
), Array( _
"er={Driver do Microsoft dBase (*.dbf)};DriverId!;FIL=dBase
III;MaxBufferSize 48;MaxScanRows=8;PageTimeout`0;SafeTransacti" _
),
Array("ons=0;Statistics=0;Threads=3;UID=admin;UserCommitSync=Yes;")), _
Destination:=Range("B2"))
.CommandText = Array( _
"SELECT CALLES.NOM_CALLE, CALLES.TIPO, CALLES.COD_CALLE" & Chr(13) &
"" & Chr(10) & "FROM CALLES CALLES")
.Name = "Consulta desde dbf"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub
"Edwin" escribió en el mensaje
news:

Tengo una base de datos *.dbf , como hago para crear una consulta via
ADO e tirar algunas informaciones de alla .

Hace algunos meses tuvimos en este grupo una discusión sobre cómo acceder a archivos DBF desde Excel usando ADO:

http://punk-list.org?uid7

Es seguro que el ejemplo no te servirá tal como está, pero espero que sí te sirva como base.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Edwin" escribió en el mensaje news:

Tengo una base de datos *.dbf , como hago para crear una consulta via
ADO e tirar algunas informaciones de alla .