exportar dbgrid a excell en embarcadero xe10

[luchifer]

No si aun te sirva, tenia el mismo problema y lo solucione con este articulo. Buenisimo y rapidisimo.

https://www.clubdelphi.com/foros/sho...portar+a+excel


En el caso mio lo cambie a:

Código Delphi [-]
procedure TFlis_estu_med.manda_xls;
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']:='Medico';
   o_hoja.range['B1']:='Paciente';
   o_hoja.range['C1']:='Fecha';
   o_hoja.range['D1']:='Hora';
   o_hoja.range['E1']:='Valor';
//--------------------------------------
   o_Hoja.Range['A2'].CopyFromRecordset(q2_det.Recordset);
   o_Excel.Visible := True;
end;

El q2_det por si acaso es el ado query del rad xe10