FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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. |
#2
|
||||
|
||||
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
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
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. |
#5
|
|||
|
|||
lo siento no me abia fijado en la fecha
|
|
|
|