Progress to Excel – Parte 2

20Nov08

Como eu combinei, segue um codigo para exportar do Progress para o Excel (.XLS).

DEFINE VARIABLE chExcelApp  AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chWorkBook  AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chWorkSheet AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE cFileName   AS CHARACTER.

ASSIGN cFileName = “aeae.xls”.

CREATE “Excel.Application” chExcelApp.

chWorkBook = chExcelApp:Workbooks:Add().
chWorkSheet = chExcelApp:Sheets:Item(1).

ASSIGN
chWorkSheet:Range(“A1″):Value = “Relatorio”
chWorkSheet:Range(“B2″):Value = “Nome”
chWorkSheet:Range(“C2″):Value = “Email”

chWorkSheet:Range(“A1:D1″):MergeCells = TRUE.

RELEASE OBJECT chWorkSheet.

chWorkBook:SaveAs(cFileName,-4143,,,,,).
chWorkBook:Save().

chWorkBook:Close().
chExcelApp:Quit().

RELEASE OBJECT chWorkBook.
RELEASE OBJECT chExcelApp.

Funciona q eh uma beleza.

Filed under: Progress   |  1 Comment
Tags: 4gl, COM-HANDLE, excel, Excel.Application, Progress, Sheets, Workbooks, xls