exportar dbgrid a excell en embarcadero xe10
 

hola a todos..
estoy en un problema y es que no e podido exportar dbgrid, o tablas mysql a excell. yo e revisado muchos links de aquí, este gran club..
pero resulta que yo utilizo XE10 y me esta dando algunos problemas...

link revisados
https://www.clubdelphi.com/foros/showthread.php?t=85001
https://www.clubdelphi.com/foros/showthread.php?t=33317
http://www.clubdelphi.com/~cadetill/...ad.php?t=41497


propiedades como: numberformat,stylesheet, name y demas propiedades. no se encuentran en esas variables varianta y olevariant en XE10.

yo se que deben estar ahí, pero no e podido hasta ahora, hacerlo... me pueden iluminar, con su sabiduría... se los agradecería mucho..

Una opción sencilla y de la que ya hemos hablado otras veces es exportar a un fichero CSV (Comma Separated Values).
Este tipo de ficheros se abre sin problemas desde Excel (incluso si está instalado lo toma como sistema de apertura por defecto) y te evita problemas con las diferentes versiones instaladas.

La otra ventaja es que puedes exportar en equipos que no tengan instalado Excel.

Si buscas en los foros, encontrarás hilos al respecto, pues hemos hablado del tema otras veces.

Añadir TAG's al código
 

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