|
Gracias
Muchas gracias por contestar. Les comentaba que ya he usado los metodos que me dicen, de las dos formas, usando SERVERS y a mano, o malo es que el paso de los datos es uno por uno, eso lo hace muy tardado (Hasta 10 minutos), y como yo no voy a ser el usuario final, necesito que lo haga rapido.
Les comentaba que lo he hecho en VB, como les indicaba en el codigo
Dim wkbObj As Workbook ' Declara una variable de objeto.
Set wkbObj = GetObject("Paso.XLS")
With wkbObj.Worksheets("Hoja1").QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=c:\paso.mdb;DefaultDir=c:\;DriverId=25;FIL=MS Access;MaxBuffe" _
), Array("rSize=2048;PageTimeout=5;")), Destination:=wkbObj.Worksheets("Hoja1").Range("A1"))
.CommandText = Array( _
"SELECT *" & Chr(13) & "" & Chr(10) & "FROM `c:\
, "\prueba`.tablaprueba tablaprueba")
.Name = "Consulta desde MS Access Database_1"
.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
Mi pregunta o solicitud de ayuda es qi alguien me puede ayudar a traducir o convertir este codigo a Delphi, lo que quiero es hacerlo de forma directa, o que de plano me digan si no hay forma.
Muchas gracias.
|