Exportar a Excel

[Casimiro Noteví]

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

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

Hay una opción sencilla que es Exportar a CSV. Es formato texto y se abre desde Excel sin problemas. Es más, si está excel instalado, te lo abrirá por defecto.
Si buscas en el foro por "Exportar CSV", seguro que encuentras hilos con ejemplo.
Incluso diría que en el FTP hay alguno.

[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 Noteví]

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.