PDA

Ver la Versión Completa : Exportar a Excel o texto


magm2000
06-08-2003, 14:37:55
Hola:
Tengo un informe con QReport y necesito exportar las columnas del listado a excel o texto. He visto un componente (ExportPack) para exportar el informe a PDF, lo que necesito es algo parecido.
Lo que quiero exportar no esta por necesidad en un TDataset por lo que no me valen ese tipo de componentes. Quiero exportar lo que me aparece en el listado.
Gracias por vuestra atención.

cadetill
06-08-2003, 15:48:40
yo tengo hecho un preview que exporta a csv (ver mi web)

para exportar un QR a Excel, necesitaras o adquirir componentes externos que te lo hagan (en mi web tambien recomiendo uno) o creo que la version profesional de QR lo hace (pero no estoy seguro)

obiwuan
07-08-2003, 22:32:50
Snake hizo un programa que se llama ExportPack que exporta de QR o FR a PDF. Mira en su perfil para obtener su URL. En mi webo también tienes un enlace a su webo.

magm2000
08-08-2003, 07:41:47
Gracias Obiwuan por tu comentario, ya utilizo ese componente pero necesitaría uno igual para exportar a texto o excel( preferiblemente).
Un saludo.

ingabraham
08-11-2007, 17:44:24
explicate mejor

Lepe
08-11-2007, 19:09:46
ingabraham, no sé si te has fijado, pero el hilo es del año 2003.

Ahora soy yo el que no entiende:
- ¿necesitas una solución a un problema parecido?
- ¿quieres dar la solución a ese tema?

Saludos

ingabraham
09-11-2007, 17:46:00
abri este hilo debido a que no he encontrado solucion,
yo se b¡en q ya se han creado otros hilos iguales, pero solo se queda en sugerencias y la solucion no la he encontrado

yo quiero es exportar un qreport a excel y ya.

Lepe
09-11-2007, 19:04:22
Es cierto que existen componentes de pago, aunque también podrías hacer otra cosilla, fácil de implementar y posiblemente usable.

Una forma es exportarlo por CSV, es un archivo de texto con los valores separados por coma (Comma Separated Values), se abre con Excel aunque no quedará muy bonito (solo texto).

Existe otra forma (algo más compleja) pero permite añadir negritas, subrayados, formatos y recorrer la hoja de excel a voluntad.

Suponiendo que tienes una consulta (TQuery) con todos los registros, la forma fácil sería (hecha al vuelo, sin comprobar en delphi, pero creo que vá):

var lista:TStringList;
fila :string;
begin
lista := TStringlist.Create;
Query1.Open;
while not Query1.eof do
begin
fila := Query1.Fields[0].AsString;
for i:= 1 to Query1.Fields.Count -2 do
fila := fila + ', ' + Query1.Fields[i].AsString;

lista.Add(fila + Query1.Fields[Query1.Fields.Count -1].AsString;
query1.Next;
end;
lista.SaveToFile('c:\mio.csv');
lista.Free;
end;

Otra forma Exportar por componentes (http://www.clubdelphi.com/foros/showthread.php?t=32736) de delphi.com.ar

Si tienes problemas, aquí estaremos.

Saludos

Lepe
09-11-2007, 22:43:29
Acaban de responder en otro hilo igual (http://www.clubdelphi.com/foros/showthread.php?t=48572), pero añadiendo un proyecto con código fuente (usando automatización servers).

Saludos