Progress'te Excel'e Veri Atma

Progress'te Excel'e Veri Atma

Sadece excel aplic.create kısmını ekliyorum. Zaten ilgili alanlara sorgulamanızdeki bilgileri yazacaksınız!!!

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) = "Data /değişken"
.
.
.
.
.

hExcel:Worksheets("Sayfa1"):Cells(iRowNum,2) =

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

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