Código Delphi [-]
procedure EmiteInformeVenta(FechaVentasIni, FechaVentasFin:TDate;
  mGridExport :TDataSet);
  var
   rangoExcel : Excel2000.ExcelRange;
   I, Fila : Integer;
   mMarcador : TBookmark;
   mTabla : TDataSet;
   AplicacionExcel:  TExcelApplication;
begin
with  dmReportes.qInformeVentaNombreClientes do
begin
  ParamByName('FECHAINI').AsDate := FechaVentasIni;
  ParamByName('FECHAFIN').AsDate := FechaVentasFin;
  ExecSQL;
end;
  if dmReportes.cdsInformeVentaNombreCliente.Active = True then
  begin
    dmReportes.cdsInformeVentaNombreCliente.EmptyDataSet;
    dmReportes.cdsInformeVentaNombreCliente.Active := False;
  end;
  dmReportes.cdsInformeVentaNombreCliente.Active := True;
  //procedimiento de ajdsoft   https://www.ajpdsoft.com/modules.php...owpage&pid=117
  //Creamos el libro de Excel (Abriendo Excel)
  AplicacionExcel := TExcelApplication.Create(Nil);
  //Asociamos el dataset (tabla) del DBGrid con la tabla
  //que utilizaremos en esta función
  mTabla := dmReportes.cdsInformeVentaNombreCliente;
  AplicacionExcel.Visible[0] := True;
  //Creamos el nuevo libro de Excel
  AplicacionExcel.ConnectKind := ckNewInstance;
//https://delphi.cjcsoft.net/viewthread.php?tid=46003
//mejoras de codigo porque me enviaba despues de 900 registro error raised exception class EOleException with message 'OLE error 800AC472'. delphi
  AplicacionExcel.Connect;
  AplicacionExcel.Workbooks.Add(NULL, 0);
  //primera fila con los nombres de las columnas
  //para ello recorremos todos las columnas de la tabla
  //y mostramos en Excel el valor de "DisplayLabel"
  rangoExcel := AplicacionExcel.ActiveCell;
  for I := 0 to mTabla.FieldCount -1 do
    begin
      rangoExcel.Value := mTabla.Fields[i].DisplayLabel;
      rangoExcel := rangoExcel.Next;
    end;
  //aplicamos un autoformato de Excel a las filas y columnas añadidas
  rangoExcel.AutoFormat(10, NULL, NULL, NULL, NULL, NULL, NULL);
  mTabla.DisableControls;
  try
    mMarcador := mTabla.Bookmark;
       try
     //recorremos todos los registros de la tabla para ir añadiéndolos
     //a la hoja actual de Excel
      mTabla.First;
      Fila := 2;
      while not mTabla.Eof do
      begin
        rangoExcel := AplicacionExcel.Range['A' + IntToStr(Fila), 'A' +
         InttoStr(Fila)];
        for I := 0 to mTabla.Fields.Count -1 do
          begin
            rangoExcel.Value := mTabla.Fields[i].AsString;
            rangoExcel := rangoExcel.Next;
          end;
          mTabla.Next;
          Inc(Fila);
      end;
       finally
         mTabla.Bookmark := mMarcador;
         mTabla.EnableControls;
       end;
  finally
     AplicacionExcel.Disconnect;
     AplicacionExcel.Free;
  end;
end;

Código Delphi [-]
procedure EmiteInformeVentas2(FechaVentasI, FechaVentasF: TDate); // Ver2
var
  I, fila: Integer;
  ExcelApp, ExcelLibro, ExcelHoja: OleVariant;
  RutaExcel, FechaInfo: String;
begin
  with dmReportes.qInformeVentaNombreClientes do
  begin
    ParamByName('FECHAINI').AsDate := FechaVentasI;
    ParamByName('FECHAFIN').AsDate := FechaVentasF;
    ExecSQL;
  end;
  if dmReportes.cdsInformeVentaNombreCliente.Active = True then
  begin
    dmReportes.cdsInformeVentaNombreCliente.EmptyDataSet;
    dmReportes.cdsInformeVentaNombreCliente.Active := False;
  end;
  dmReportes.cdsInformeVentaNombreCliente.Active := True;
  TotalRegistroData := dmReportes.cdsInformeVentaNombreCliente.RecordCount;
  dmReportes.ADODataSetInforme.FieldDefs.Assign
    (dmReportes.cdsInformeVentaNombreCliente.FieldDefs);
  dmReportes.ADODataSetInforme.CreateDataSet;
  try
    dmReportes.cdsInformeVentaNombreCliente.DisableControls;
    // dmReportes.ADODataSetInforme.Active := True;
    dmReportes.ADODataSetInforme.DisableControls;
    dmReportes.cdsInformeVentaNombreCliente.First;
    while not dmReportes.cdsInformeVentaNombreCliente.Eof do
    begin
      dmReportes.ADODataSetInforme.Insert;
      for I := 0 to dmReportes.cdsInformeVentaNombreCliente.FieldCount - 1 do
      begin
        dmReportes.ADODataSetInforme.Fields[i].Value :=
          dmReportes.cdsInformeVentaNombreCliente.Fields[i].Value;
        // dmReportes.ADODataSetInforme.Post;
      end;
      dmReportes.cdsInformeVentaNombreCliente.Next;
    end;
    FechaInfo := StringReplace(DateToStr(Now), '/', '', [rfReplaceAll]);
    RutaExcel := ExtractFilePath(Application.ExeName) + 'Informe' + FechaInfo;
    // dmReportes.ADODataSetInforme.SaveToFile(RutaExcel + '.xls');
  finally
    dmReportes.ADODataSetInforme.EnableControls;
    dmReportes.cdsInformeVentaNombreCliente.EnableControls;
  end;
    // Crea el objeto Excel, el objeto workBook y el objeto sheet
    ExcelApp := CreateOleObject('Excel.Application');
  try
    ExcelLibro := ExcelApp.Workbooks.Add();
    // Añadimos una Hoja
    ExcelHoja := ExcelLibro.Worksheets.Add();
    // aca puedes recorrer los encabezados y otras cosas que desees No he logrado poner los encabezado :confused:
    ExcelHoja.Range['A2'].CopyFromRecordset
      (dmReportes.ADODataSetInforme.Recordset);  // .CopyFromRecordset(Rs.Recordset);
    // esta es el método importante del Excel y como parametro tiene un objeto ADO
    // y por eso la necesidad de usar este objeto.
    MessageDLG('¡Se exportó correctamente!', mtInformation, [mbOk], 0);
    ExcelApp.Visible := True;
  except
    ExcelApp.Quit;
    dmReportes.ADODataSetInforme.EnableControls;
    Showmessage('No se pudo crear el Archivo Excel.');
    raise;
  end;
end;

Código Delphi [-]
var o_Excel,o_Libro, o_Hoja : OleVariant; 
begin
    o_Excel := CreateOleObject('Excel.Application');    
    o_Libro := o_Excel.Workbooks.Add;    
    o_hoja := o_Libro.Worksheets.Add;   
    o_hoja.range['A1']:='Código';    
    o_hoja.range['B1']:='Nombre';    
    o_hoja.range['C1']:='Fecha';    
    o_hoja.range['D1']:='Valor';    
    o_hoja.range['E1']:='Estado';
    ...
end;