| Pregunta: | 6675 - INFORME EN EXCEL DESDE DELPHI |
| Autor: | David Luque |
| Como puedo hacer un report de Excel desde delphi sin utilizar los componentes Servers de Office que se incluyen o donde puedo encontrar documentacion para manejar dichos componentes.
Gracias listeros. | |
| Respuesta: | rafael salazar |
| aqui te pongo el codigo que utilizo
var ExcelApp: Variant; x,y,c,i:Integer; begin //if PD1.Execute then begin PD1.Execute; // ExcelApp.print:=print; ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.WorkBooks.Add('c:demo.xls');// el archivo demo.xls debe existi //lo cual viene siendo como tu plantilla o reporte y solo carga los datos ExcelApp.WorkBooks[1].Worksheets[1].Print:=Print; ExcelApp.WorkBooks[1].Worksheets[1].PrintOut; //ExcelApp.visible:=True; c:=3; i:=1; ExcelApp.cells[1,1]:='celda 1'; ExcelApp.cells[1,2]:='celda 2'; ExcelApp.cells[1,3]:='celda3'; x:=2; while i<=c do begin ExcelApp.cells[x,1]:=lista.Cells[0,i];//''; i:=i+1; x:=x+1; end; // end; end; suerte con tu proyecto | |
| Respuesta: | Claudia García Márquez |
| Hola David:
Tengo código que te puede ayudar a hacer el reporte para Excel, sin embargo no lo anexo a esta respuesta porque no lo tengo a la mano, si todavía te interesa mandame un mail y te envio el código. Saludos. | |
| Respuesta: | Sebastian Rodriguez |
| David:
Lo que yo hago para enviar reportes a excel es imprimirlos en un archivo separado por comas, por ejemplo. Nombre,Direccion,Telefono <--- cabecera del reporte Nombre uno, Direccion uno, telefono uno<--------- datos a desplegar Nombre dos, Direccion dos, telefono dos . . . Luego, al archivo le colocas la extensión CSV (Comma Separated), excel reconoce ese archivo, el cual le puedes abrir desde el explorador de windows. Ojala eso te ayude, si tienes dudas, contáctame.. Saludos. | |