Exportar Reporte a Excel
Buenos días
Tengo el siguiente inconveniente, necesito exportar a excel un reporte diseñado en visual foxpro pero que al hacerlo el reporte se vea en excel tal cual como se ve en la vista preliminar, estuve usando el rep_excel con cursores temporales pero no funciona como necesito.
¿La pregunta es alguien me podría ayudar para realizar esta exportación correctamente?. Estuve buscando en la red y conseguí algo relacionada con la biblioteca _reportlistener.vcx, use un código de ejemplo * Esta rutina genera un reporte en formato Excel usando ExcelListener.
PROCEDURE Frx2Excel_ExcelListener
LPARAMETERS tcReport,tuWorkbookFile,tcWorksheetName,tcOptions
* Setup
IF EMPTY(tcOptions)
tcOptions = ''
ENDIF
LOCAL lcReportBehavior,loPreviewContainer,loExtensionHandler,loReportListener
lcReportBehavior = SET("ReportBehavior")
SET REPORTBEHAVIOR 90
* Set up report listener
loReportListener = NEWOBJECT("ExcelListener","ExcelListener.vcx")
loReportListener.ListenerType = 3 && ?
loReportListener.lOutputToCursor = .T.
loReportListener.cWorkbookFile = tuWorkbookFile
loReportListener.cWorksheetName = tcWorksheetName
* Run a report:
REPORT FORM (tcReport) OBJECT loReportListener &tcOptions
SET REPORTBEHAVIOR &lcReportBehavior
pero al ejecutarlo entre otros errores que ya corregi me da el siguiente error:Not a character expression (Error 45)
Mucho sabría agradecer la ayuda que me puedan brindar.
Tengo el siguiente inconveniente, necesito exportar a excel un reporte diseñado en visual foxpro pero que al hacerlo el reporte se vea en excel tal cual como se ve en la vista preliminar, estuve usando el rep_excel con cursores temporales pero no funciona como necesito.
¿La pregunta es alguien me podría ayudar para realizar esta exportación correctamente?. Estuve buscando en la red y conseguí algo relacionada con la biblioteca _reportlistener.vcx, use un código de ejemplo * Esta rutina genera un reporte en formato Excel usando ExcelListener.
PROCEDURE Frx2Excel_ExcelListener
LPARAMETERS tcReport,tuWorkbookFile,tcWorksheetName,tcOptions
* Setup
IF EMPTY(tcOptions)
tcOptions = ''
ENDIF
LOCAL lcReportBehavior,loPreviewContainer,loExtensionHandler,loReportListener
lcReportBehavior = SET("ReportBehavior")
SET REPORTBEHAVIOR 90
* Set up report listener
loReportListener = NEWOBJECT("ExcelListener","ExcelListener.vcx")
loReportListener.ListenerType = 3 && ?
loReportListener.lOutputToCursor = .T.
loReportListener.cWorkbookFile = tuWorkbookFile
loReportListener.cWorksheetName = tcWorksheetName
* Run a report:
REPORT FORM (tcReport) OBJECT loReportListener &tcOptions
SET REPORTBEHAVIOR &lcReportBehavior
pero al ejecutarlo entre otros errores que ya corregi me da el siguiente error:Not a character expression (Error 45)
Mucho sabría agradecer la ayuda que me puedan brindar.
1 respuesta
Respuesta de Hector Cevallos
1