Exportar A D7

[erasmorc]

Buenas tardes,

Quisiera me ayudaran a exportar una query a Excel, no se como usar el tab server de la paleta. Gracias.

[roman]

Vamos a ver. Acabas de preguntar cómo exportar a Excel en el hilo http://www.clubdelphi.com/foros/showthread.php?t=21659 en donde eduarcol te dio la sugerencia de usar la paleta Servers pero además te indicó una búsqueda en los foros.

Tú mencionaste que ninguno de los 72 resultados te sirve y yo creo que te sirven perfectamente. La comunicación con Excel es algo que se ha tratado muchísimas veces en estos foros. Podrás encontrar, por lo menos, los siguientes rubros:

1. Creación de archivos CVS (que pueden leerse en Excel perfectamente)
2. Componentes que exportan cualquier dataset a Excel (p. ej. la del compañero Federico Firenze)
3. Uso de las componentes ADO
4. Uso de la paleta Servers.

// Saludos

[erasmorc]

Buenas

Asi mismo es realize todas las recomendaciones que me han hecho y no he podido resolverlo, revise todos los items y ninguno se acerca a lo que quiero, la mayoria de las recomendaciones se basan en exportarlo a algun tipo de archivo intermedio que excel reconosca para luego darle el formato en excel y yo quiero personalizarlo desde el mismo delphi sin necesidad de que el usuario intervenga. Lo mas cercano que tengo a la solucion es enviarlo q un reporte de FR3 y luego exportarlo desde ahi pero tampoco me satisface del todo esa solucion. Si conoces algun componente o la direccion donde pueda conseguirlo te lo agradecere mucho, o talvez algun ejemplo.


Saludos
La ignorancia termina cuando nos atrevemos a preguntar

[roman]

Disculpa pero ejemplos de uso de las componentes de la paleta Servers, con las cuáles puedes dar formato y llenar datos, hay por montones en los foros del club; no tendría mucho sentido repetir lo que ya está publicado.

// Saludos

[erasmorc]

Saludos,

Pero Inviertes el mismo tiempo en decirme que hay ejemplos por monton que si dijeras en donde estan esos ejemplos, osea pienso yo, pero de todas formas muchas gracias vere si consigo la solucion de alguna otra forma.

[marcoszorrilla]

Otra posibilidad más:

procedure TfrConClientes.SpeedButton1Click(Sender: TObject);
var
excel:Variant;
fila,columna:Integer;
Data : TDataSet;
begin
try
excel:=CreateOleObject('Excel.Application');
except
ShowMessage('Excel no se pudo iniciar.');
exit;
end;
excel.Visible:=true;

Data:=Dbgrid1.DataSource.DataSet;
Data.First;
fila:=1;
columna:=1;
excel.Workbooks.Add;

//Poner los títulos
for columna := 0 to Dbgrid1.Columns.Count-1 do
begin
excel.Cells[fila,columna + 1].Value:=Dbgrid1.Columns[columna].FieldName;
end;

fila:=2;
Dmxx.Cli.DisableControls;

Try

while not(Data.eof) do
begin

for columna := 0 to Dbgrid1.Columns.Count-1
do
begin
excel.Cells[fila,columna + 1].Value:=Data.FieldByName(Dbgrid1.Columns[columna].FieldName).asString;
end;
Data.Next;
fila:= fila + 1;
end;
Except
ShowMessage('Atención, se produjo un error en la transmisión.');
end;
Dmxx.Cli.EnableControls;
end;


Un Saludo.

[erasmorc]

Gracias Marcos lo probare de inmediato


Saludos

[marcoszorrilla]

En ese caso no olvides de poner ComObj;en el Uses de tu form.

Un Saludo.

[erasmorc]

Saludos


Marcos que es Dmxx

[marcoszorrilla]

Es el nombre del DataModulo en donde están alojadas las tablas y consultas, si las tienes directamente en el formulario, simplemente borra esa referencia.

Un Saludo.

[erasmorc]

Buenas tardes,


Marcos un millon de gracias funciono perfectamente, ya de esta forma puedo customizar las celdas, gracias mil.

Saludos.