RE:Como envio el contenido de una tabla a Excel 20
Hola Misael. Mira, primero declara las variables XlApp, XlBook, XlSheet y XlSheets de tipo Variant. Luego haces lo siguiente:
XlApp := CreateOleObject('Excel.Application');
XlBook := XlApp.WorkBooks.Add(xlWBATWorksheet);
XlSheet := XlApp.WorkBooks[1].Sheets[1];
XlSheets := XlApp.Sheets;
XlApp.Visible := True;
Lo anterior para abrir tu hoja en un libro de Excel, luego agregas en el form de tu aplicación un Query y un database en la paleta DataAcces, y haces lo siguiente:
Da click en el Database de tu form y en la propiedad DataBaseName coloca el nombre que desees. Ahora da click en el Query de tu form y en la propiedad DataBaseName selecciona el nombre que acabaste de colocar en el DataBaseName del Database. listo? bueno, ahora en la propiedad AliasName del Database coloca el nombre del Alias de tu base de datos. Ahora en la propiedad SQL del Query te vas a donde estan los puntos suspensivos y escribes la consultas que deseas que aparezca en el libro de Excel. Luego en la propiedad Connected del Database le das True y a la propiedad Active del Query tambien lo activas a True. Listo, ya está tu base de datos ahí... ahora falta meterla en las celdas de Excel... ahí va... ahora coloca lo siguiente en el código de algún botón que se llame Exportar ó lo que tu quieras:
while query1.Eof <> True do
begin
for i:= 0 to query1.FieldCount -1 do
begin
XlSheet.Cells[b,i+1] := query1.FieldList.Fields[i].AsString;
end;
b := b + 1;
query1.Next;
end;
Bueno, se supone que has debido de declarar b, i como Integer. Te recomiendo que inicialices
