Exportar a Excel

[Combat-F2D]

con lo sencillo que es exportar a CSV y de ahi a todo el mundo.......
hay que ver a veces cuanto nos complicamos la vida.... lo digo en general, me incluyo

[[nlsgarcia]]

elrayo76,

Empezado por Neftali

...Hay una opción sencilla que es Exportar a CSV...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IBQuery, DB, IBCustomDataSet, IBTable, StdCtrls, IBDatabase;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    DB: TIBDatabase;
    Transaction: TIBTransaction;
    Table: TIBTable;
    Query: TIBQuery;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// DataSet a CSV
procedure WriteDataSetToCSV(DataSet: TDataSet; FileName: String);
var
   List: TStringList;
   S: String;
   i: Integer;

begin

   List := TStringList.Create;

   try

      DataSet.First;

      while not DataSet.Eof do
      begin

         S := '';

         for i := 0 to DataSet.FieldCount - 1 do
         begin
            if S > '' then
               S := S + ',';
            S := S + '"' + DataSet.Fields[i].AsString + '"';
         end;

         List.Add(S);

         DataSet.Next;

      end;

   finally

      List.SaveToFile(FileName);
      List.Free;

   end;

end;

// Inicializa DB
procedure TForm1.FormCreate(Sender: TObject);
begin
   DB.Params.Clear;
   DB.Params.Add('User_Name=SYSDBA');
   DB.Params.Add('Password=masterkey');
   DB.Connected := True;
end;

// Table a CSV
procedure TForm1.Button1Click(Sender: TObject);
begin
   Table.Open;
   WriteDataSetToCSV(Table, 'Table.csv');
   Table.Close;
   ShowMessage('Archivo CSV Generado');
end;

// Query a CSV
procedure TForm1.Button2Click(Sender: TObject);
begin
   with Query do
   begin
      SQL.Clear;
      SQL.Text := 'Select * from EMPLOYEE';
      Open;
      WriteDataSetToCSV(Query, 'Query.csv');
      Close;
      ShowMessage('Archivo CSV Generado');
   end;
end;

end.

El código anterior exporta un TDataSet (Table y Query en Firebird) a un archivo CSV.

Espero sea útil

Nelson.

[elrayo76]

Sigo sin poder exportar a Excel. El problema es que todos los ejemplos y enlaces que me dan en los comentarios hacen referencia a tener instalado el excel.

Núnca se le planteo a nadie la necesidad de exportar a Excel y que el cliente no tenga el programa instalado?. Si algún sector de la empresa no necesita usar Excel que pasa no pueden exportar?

Si exporto como CSV es una opción, pero es muy simple. Mi intención es poder hacer algunas cosas mas que solo exportar. Me interesa a demas de sacar el archivo poder formatear los títulos de las columnas entre otras cosas.

Saludos,
El Rayo

[Casimiro Notevi]

Empezado por elrayo76

Núnca se le planteo a nadie la necesidad de exportar a Excel y que el cliente no tenga el programa instalado?. Si algún sector de la empresa no necesita usar Excel que pasa no pueden exportar?

Pues eso:

Empezado por Casimiro Notevi

Sigue buscando, es un tema que se ha tratado varias veces en estos foros y tiene solución.

Empezado por elrayo76

Si exporto como CSV es una opción, pero es muy simple. Mi intención es poder hacer algunas cosas mas que solo exportar. Me interesa a demas de sacar el archivo poder formatear los títulos de las columnas entre otras cosas.

Pues igual, incluso más fácil.

[Neftali [Germán.Estévez]]

Prueba los componentes de exportación de Max (MaxExport). Están en el FTP.

[[nlsgarcia]]

elrayo76

Empezado por elrayo76

...¿Núnca se le planteo a nadie la necesidad de exportar a Excel y que el cliente no tenga el programa instalado?...

Revisa este link:

Export to XLS without Excel from Delphi : http://blog.runbits.com/post/Native-...el-Delphi.aspx

Generate Excel files without using Microsoft Excel : http://www.codeproject.com/Articles/...=Relaxed&fr=41

OExport - XLSX/XLS/ODS/CSV native Delphi/Lazarus import/export library : http://www.kluug.net/xlsx-ods-delphi.php

Espero sea útil

Nelson.

[elrayo76]

Gracias,

Estuve viendo algo y voy a probar alguno. Pero por lo pronto solo he visto que el último enlace no es gratis.

Para el que le interese en uno de los enlaces hasta esta la referencia a un documetno PDF de 250 páginas escrito por la gente de OpenOffice que describe como es el formato de los archivos de Excel. Con esto hasta alguno se puede animar a iniciar sus propias clases.

Si alguno se anima no tengo problemas en aportar lo que pueda para ayudar al desarrollo.

Saludos