/*
Programa Modificado por Ing. Gustavo Ferrer.
Este es una prueba de como añadir una hoja en un archivo excel ya existente, tienes que estar conectado a la BD Sports, modificalo a tus necesidades, espero te sirva....
*/
DEFINE VARIABLE chExcelApplication AS COM-HANDLE.
DEFINE VARIABLE chLibro AS COM-HANDLE.
DEFINE VARIABLE chWorkbook AS COM-HANDLE.
DEFINE VARIABLE chWorksheet AS COM-HANDLE.
DEFINE VARIABLE chChart AS COM-HANDLE.
DEFINE VARIABLE chWorksheetRange AS COM-HANDLE.
DEFINE VARIABLE iCount AS INTEGER.
DEFINE VARIABLE iIndex AS INTEGER.
DEFINE VARIABLE iTotalNumberOfOrders AS INTEGER.
DEFINE VARIABLE iMonth AS INTEGER.
DEFINE VARIABLE dAnnualQuota AS DECIMAL.
DEFINE VARIABLE dTotalSalesAmount AS DECIMAL.
DEFINE VARIABLE iColumn AS INTEGER INITIAL 1.
DEFINE VARIABLE cColumn AS CHARACTER.
DEFINE VARIABLE cRange AS CHARACTER.
DEFINE VARIABLE NombreArchivo AS CHARACTER NO-UNDO.
NombreArchivo = "". /* Nombre del Archivo que tienes que modificar *.xls*/
/* create a new Excel Application object */
CREATE "Excel.Application" chExcelApplication.
/* launch Excel so it is visible to the user */
chExcelApplication:Visible = TRUE.
chExcelApplication:Workbooks:Open (NombreArchivo, true).
chWorkSheet = chExcelApplication:Sheets:Add().
chWorkSheet:Name = "PRUEBA".
/* set the column names for the Worksheet */
chWorkSheet:Columns("A"):ColumnWidth = 18. %
