Export DataSet Excel D7

[javiermorales]

Buenos días a todos/as. He buscado en los foros y he encontrado varios hilos sobre la exportación directa de DataSet a Excel, pero indican unos componentes que no consigo instalar en D7.

¿Me podeis indicar una dirección donde bajar un componente para exportar la información de un DBGrid a Excel directamente y que funcione en D7?.

Y por favor, me indicais tambien la manera correcta de instalarlos.

Gracias.

[fredo]

Ojalá te sirva... el parametro final puedes pasarlo en blanco, sirve para agregar un resumen....

salida es un componente TSaveDialog.

Procedure TFrm_main.Exportar_Excel(XDataset:TSimpleDataSet;Final:String);
var i:Integer;
salida:TextFile;
begin
if guardar.Execute then
Begin
assignFile(salida,guardar.FileName);
Rewrite(Salida);
with XDataset do
Begin
DisableControls;
First;
for i:=0 to Fieldcount-1 do
Begin
write(salida,fields[i].fieldName+';');
end;
Writeln(Salida);
while not eof do
Begin
for i:=0 to Fieldcount-1 do
Begin
write(salida,fields[i].asstring+';');
end;
writeln(salida);
next;
end;
EnableControls;
end;
writeln(salida);
writeln(salida,Final);
CloseFile(salida);
end;
end;



Saludos

[javiermorales]

Gracias Fredo, esta tarde lo pruebo.

Un abrazo.

[javiermorales]

Fredo, ha ido de maravilla. Lo he modificado sobrecargando la función para poder exportar DataSet y DBGrid. Además he hecho que se abra excel y me abra el archivo que he generado, con lo que se gana mucho en velocidad, respecto a la introducción directa de datos en excel.

Gracias.

[sgarcia]

Saludos.
Pro favor me podrian pasar algo de codigo para poder exportar mi Qry a excel... Utilizo D7 y saco los datos de un TIBQuery, y al igual quiero que despues de guardarlo me lo despliegue en pantalla.
GRACIAS.