Exportar a excel

[PEDRO DE LEON RODAS[3]]

Saludos a todos.
Alguien me puede proporcinar un ejemplo de como enviar un reporte con
toEXcel usando mysql
Usando
TReportToExcel
Gracias.

[perolero]

Hola pedro:
METHOD BtnExcelClick( oSender ) CLASS TResiduos
Local oReport
Local n := 0
::oResiduos:SaveState(.T.)
REPORT oReport TITLE "REGISTRO DE MOVIMIENTOS DE RESIDUOS PELIGROSOS" PREVIEW MODAL
oReport:nGridStyle := 3
::oResiduos:GoTop()
COLUMN OF oReport TITLE "Fecha" DATA ::oResiduos:fecha
COLUMN OF oReport TITLE "Origen" DATA ::oResiduos:Origen
COLUMN OF oReport TITLE "Tipo de Residuo" DATA ::oResiduos:tipo_residuo
COLUMN OF oReport TITLE "Cod.Res." DATA ::oResiduos:codigo_residuo
COLUMN OF oReport TITLE "Cantidad" DATA ::oResiduos:cantidad
COLUMN OF oReport TITLE "Unidad" DATA ::oResiduos:unidad
COLUMN OF oReport TITLE "Justificante" DATA ::oResiduos:numero_justificante
COLUMN OF oReport TITLE "Recogedor" DATA ::oResiduos:recogedor
COLUMN OF oReport TITLE "Nº Autorización" DATA ::oResiduos:numero_autorizacion
oReport:bWhile := {|| !::oResiduos:eof()}
oReport:bSkip := {|| ::oResiduos:skip()}
oReport:ToExcel()
::oResiduos:RestoreState(.T.)
RETURN Nil
Saludos,
Emilio Gil.

[perolero]

Pedro, se me olvidaba, ::oResiduos es una consulta o tabla de MySql.
Saludos,
Emilio Gil.

[PEDRO DE LEON RODAS[3]]

Emilio Gil, buen dia.
Gracias por esta apoyo, voy a probarlo y ahi te comento.
Saludos.

[PEDRO DE LEON RODAS[3]]

Emilio Gil, gracias, funciona perfectamente bien.
Saludos.