Componente Exportacion a Excel desde un DBGrid
 

Hola, desde hace años uso un componente para exportar a excel lo que el usuario ve en un dbgrid, la verdad es que es muy comodo ya que haces la consulta, la muestras y si el usuario quiere un listado de solo lo que en el grid pues se lo lanzo a excel y listo. Este componente se llama DBGrid2Excel está en la página https://www.nika-soft.com/download/, lo que pasa es que el propietario ya no está haciendo versiones para los nuevos delphi, a mi hasta ahora con Rio me funcionaba perfectamente, pero al querer ponerlo en alexandría me arroja el siguiente error: [dcc32 Error] xlsblob.pas(166): E2010 Incompatible types: 'PAnsiChar' and 'PWideChar', supongo que tendré que ir por todas las unidades cambiando las funciones donde se encuentran estos tipos, no habrá otra forma de actualizar la unidad si tener que cambiar estas funciones, veo que usa sysutils,y windows, a lo mejor en este ultimo delphi cambió la unidad donde se encuentran estos tipos, no se, es solo por si alguien le pasó lo mismo y lo hizo de otra forma.
Saludos.

Ese componente veo que viene en un ".exe", por lo que deduzco que no tienes acceso al código fuente.
Si vienen los fuentes entonces puedes "retocarlo" para solucionar ese problemilla, en caso contrario estás perdido sin acceso al código fuente.
De todas formas, aquí tienes un ejemplo de cómo guardar de un dbgrid a excel, prueba:

Código Delphi [-]
uses
  ComObj;

procedure TForm1.ButtonExportToExcelClick(Sender: TObject);
var
  ExcelApp: Variant;
  i, j: Integer;
begin
  try
    ExcelApp := CreateOleObject('Excel.Application');
    ExcelApp.Workbooks.Add;
    ExcelApp.Visible := True;

    // Exportar los títulos de las columnas del DBGrid
    for i := 0 to DBGrid1.Columns.Count - 1 do
    begin
      ExcelApp.Cells[1, i + 1].Value := DBGrid1.Columns[i].Title.Caption;
    end;

    // Exportar los datos del DBGrid
    for i := 0 to DBGrid1.DataSource.DataSet.RecordCount - 1 do
    begin
      DBGrid1.DataSource.DataSet.RecNo := i + 1;
      for j := 0 to DBGrid1.Columns.Count - 1 do
      begin
        ExcelApp.Cells[i + 2, j + 1].Value := DBGrid1.Fields[j].AsString;
      end;
    end;

    ShowMessage('Datos exportados correctamente a Excel.');
  except
    on E: Exception do
      ShowMessage('Error al exportar a Excel: ' + E.Message);
  end;
end;

Hola, te recomiendo Excel4Delphi. Te permite generar archivos XLSX sin necesidad de tener instalado Excel.