Export To Excel with Progress 4GL Example

CREATE "Excel.Application" hExcel.
ASSIGN
    hExcel:VISIBLE = TRUE
    hWorkbook = hExcel:Workbooks:Add()
    hWorkSheet = hExcel:Sheets:Item(1)
    iRowNum = 8.

hExcel:Sheets:Item(1):Name = "Sayfa1".
hExcel:Columns("F:K"):Select.
hExcel:Selection:NumberFormat = "#.##0,00".
hExcel:Worksheets("Sayfa1"):Cells(iRowNum,1) = "value or variable"

.
.
.
.
.

hExcel:Columns("A:A"):SELECT.
hExcel:Selection:ColumnWidth = 13.43.

RELEASE OBJECT hWorksheet.
RELEASE OBJECT hWorkbook.
RELEASE OBJECT hExcel.