de grid a excel

[gustavoh]

hay alguna manera de pasar los datos que veo en una grilla, a una planilla de excel, para luego ser manipulados desde ahi, para mi aplicacion esto seria muy util
muchas gracias

[marcoszorrilla]

Mira este ejemplo:

Código Delphi [-]
 procedure TfrConFacturas.SpeedButton4Click(Sender: TObject);
  var
   excel:Variant;
   fila,columna:Integer;
   Data : TDataSet;
   MyDataSet:TDataSet;
   
 begin
   try
     excel:=CreateOleObject('Excel.Application');
   except
     ShowMessage('Excel no se pudo iniciar.');
     exit;
   end;
   excel.Visible:=true;
 
     Data:=Reja.DataSource.DataSet;
          Data.First;
          fila:=1;
          columna:=1;
           excel.Workbooks.Add;
 
           //Poner los títulos
            for columna := 0 to Reja.Columns.Count-1 do
            begin
            excel.Cells[fila,columna + 1].Value:=Reja.Columns[columna].FieldName;
            end;
 
            fila:=2;
 
          //Desengachar controles para agilizar
          Dmxx.Factura.DisableControls;
          Dmxx.HLinalbaF.DisableControls;
          try
            while not(Data.eof) do
             begin
 
              for columna := 0 to Reja.Columns.Count-1 do
              begin
               if (columna < 4) or (Columna > 19) then
              excel.Cells[fila,columna + 1].Value:=Data.FieldByName(Reja.Columns[columna].FieldName).asString
               else
               excel.Cells[fila,columna + 1].Value:=Data.FieldByName(Reja.Columns[columna].FieldName).asFloat;
              end;
               Data.Next;
               fila:= fila + 1;
             end;
          Except
          ShowMessage('Atención, se produjo un error en la transmisión.');
          end;
          Dmxx.Factura.EnableControls;
          Dmxx.HLinalbaF.EnableControls;
 
 end;

Un Saludo.

[Drahcir]

Que uses son necesarias para la función CreateOleObject??

[roman]

Si no mal recuerdo: ComObj

// Saludos

[marcoszorrilla]

Pues recuerdas bien, Román.

Un Saludo.

[Drahcir]

Gracias, funciona a la perfección.