Como Exportar de Delphi a Excel
 

Hola amigos,tengo un problemilla o una duda ojala puedan orientarme, quiero exportar unos datos de delphi a excel pero no se como hacerle podrian echarme una mano porfas.

Yo lo que ago es que por medio de un componente tquery ago una consulta y meto los datos a un grild. Pero despues de esto quiero mandarlos a excel pero no se como hacerlo, podrian desirme u orientarme, que componentes tengo que utilizar o si alguien fuera tam amable de darme un ejemplo sencillo se lo agradeseria bastante.

Estare esperando sus comentarios. Su Amigo Charless

Que dios los bendiga.

Saludos.

Basta con hacer una búsqueda en los foros por "exportar excel" y encontrarás mensajes con la solución.

http://www.clubdelphi.com/foros/guia....php#busquedas

mira yo ago algo similar y encontre un procedimiento y solo le cambie algunas cosas y kedo de la siguiente forma:
no olvides insertar en tu form el componente excelAplication que se encuentra en la pestaña de servers.
tambien en uses tienes que agregar los siguientes: comobj, Activex

procedure ExportaExcel(pStringGrid : TstringGrid; c0,r0,c1,r1 : Integer);
var ExLin, ExCol, i, Linea : Integer;

c : TCursor;
Excel, ExcelDoc, WS: Variant;
begin
c := Screen.Cursor;
Screen.Cursor := crHourGlass;
with pStringGrid do begin
try
coinitialize(nil);
Excel := CreateOleObject('Excel.Application');
ExcelDoc := Excel.Workbooks.Add;
WS := ExcelDoc.ActiveSheet;
Excel.Visible := true;
ExCol := 0;
for i := c0 to c1 do begin
inc(ExCol);
ws.Cells.Item[1, ExCol]:= cells[i, 0];
end;
for linea := r0 to r1 do begin
inc(ExLin);
ExCol := 0;
for i := c0 to c1 do begin
inc(ExCol);
try
ws.Cells.Item[ExLin,ExCol]:= cells[i,linea];

except end;
end;
end;
ws.cells.entirecolumn.autofit;
finally
screen.Cursor := c;
end;
end;
end;

ya solo lo mandas llamar en donde tu kieras ya sea dando click en un boton y pones el siguiente codigo:

ExportaExcel(Grid1, 0,0,Grid1.colCount,Grid1.RowCount);


pruebalo a ver ke te parece.

Hola jact85, no creeras que despues de tres años la persona encontró la solucion :rolleyes:?

:D lo siento no me abia fijado en la fecha :D