[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.