Exportar a Excel o texto

[magm2000]

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]

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]

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]

Gracias Obiwuan por tu comentario, ya utilizo ese componente pero necesitaría uno igual para exportar a texto o excel( preferiblemente).
Un saludo.

[ingabraham]

explicate mejor

[Lepe]

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]

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]

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]

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