Exportar A D7

[erasmorc]

Buenas

Asi mismo es realize todas las recomendaciones que me han hecho y no he podido resolverlo, revise todos los items y ninguno se acerca a lo que quiero, la mayoria de las recomendaciones se basan en exportarlo a algun tipo de archivo intermedio que excel reconosca para luego darle el formato en excel y yo quiero personalizarlo desde el mismo delphi sin necesidad de que el usuario intervenga. Lo mas cercano que tengo a la solucion es enviarlo q un reporte de FR3 y luego exportarlo desde ahi pero tampoco me satisface del todo esa solucion. Si conoces algun componente o la direccion donde pueda conseguirlo te lo agradecere mucho, o talvez algun ejemplo.


Saludos
La ignorancia termina cuando nos atrevemos a preguntar

[roman]

Disculpa pero ejemplos de uso de las componentes de la paleta Servers, con las cuáles puedes dar formato y llenar datos, hay por montones en los foros del club; no tendría mucho sentido repetir lo que ya está publicado.

// Saludos

[erasmorc]

Saludos,

Pero Inviertes el mismo tiempo en decirme que hay ejemplos por monton que si dijeras en donde estan esos ejemplos, osea pienso yo, pero de todas formas muchas gracias vere si consigo la solucion de alguna otra forma.

[marcoszorrilla]

Otra posibilidad más:

Código Delphi [-]
 procedure TfrConClientes.SpeedButton1Click(Sender: TObject);
  var
   excel:Variant;
   fila,columna:Integer;
   Data : TDataSet;
 begin
   try
     excel:=CreateOleObject('Excel.Application');
   except
     ShowMessage('Excel no se pudo iniciar.');
     exit;
   end;
   excel.Visible:=true;
 
     Data:=Dbgrid1.DataSource.DataSet;
          Data.First;
          fila:=1;
          columna:=1;
           excel.Workbooks.Add;
 
           //Poner los títulos
            for columna := 0 to Dbgrid1.Columns.Count-1 do
            begin
            excel.Cells[fila,columna + 1].Value:=Dbgrid1.Columns[columna].FieldName;
            end;
 
            fila:=2;
            Dmxx.Cli.DisableControls;
 
          Try
 
            while not(Data.eof) do
             begin
 
              for columna := 0 to Dbgrid1.Columns.Count-1
              do
              begin
              excel.Cells[fila,columna + 1].Value:=Data.FieldByName(Dbgrid1.Columns[columna].FieldName).asString;
             end;
               Data.Next;
               fila:= fila + 1;
            end; 
                      Except
          ShowMessage('Atención, se produjo un error en la transmisión.');
          end;
          Dmxx.Cli.EnableControls;
 end;

Un Saludo.

[erasmorc]

Gracias Marcos lo probare de inmediato


Saludos

[marcoszorrilla]

En ese caso no olvides de poner ComObj;en el Uses de tu form.

Un Saludo.

[erasmorc]

Saludos


Marcos que es Dmxx