|
|
最初由 erosvie 发布
[B]DEF VAR chExcelApplication AS COM-HANDLE.
DEF VAR chWorkbook AS COM-HANDLE.
DEF VAR chWorksheet AS COM-HANDLE.
DEF VAR chWorksheetRange AS COM-HANDLE.
DEF VAR iColumn AS INT INIT 1.
def VAR cColumn AS CHAR.
DEF VAR cRange AS CHAR.
HIDE MESSAGE NO-PAUSE.
iColumn = 0.
CREATE "Excel.Application" chExcelApplication.
chExcelApplication:VISIBLE = TRUE.
chWorkbook = chExcelApplication:Workbooks:ADD().
chWorkSheet = chExcelApplication:Sheets:ITEM(1).
chExcelApplication:Sheets:ITEM(1):SELECT().
chExcelApplication:Sheets:ITEM(1):NAME = "Part Number & Dercription".
iColumn = iColumn + 1.
cColumn = STRING(iColumn).
cRange = "A" + cColumn.
chWorkSheet:Range(cRange):Value = "Part Number".
cRange = "B" + cColumn.
chWorkSheet:Range(cRange):Value = "Dercription".
贴一段progress生成excel 报表的程序,其他的也没有深入研究。 [/B]
不错,高手还真多。呵呵 |
|