WORKING-STORAGE SECTION.
01 EXCEL OBJECT REFERENCE COM.
01 WORKBOOK OBJECT REFERENCE COM.
01 SHEETS OBJECT REFERENCE COM.
01 WORKSHEET OBJECT REFERENCE COM.
01 CELL OBJECT REFERENCE COM.
01 THERANGE OBJECT REFERENCE COM.
01 APPLICATION PIC X(20) VALUE "EXCEL.APPLICATION".
01 FILENAME PIC X(20) VALUE "C:\ARTICULOS.CSV".
01 SHEETNAME PIC X(20) VALUE "ARTICULOS".
01 COM-TRUE PIC 1(1) BIT VALUE B"1".
01 FILLER PIC 1(7) BIT.
01 ARRAY-ROW PIC S9(9) COMP-5.
01 ARRAY-COL PIC S9(9) COMP-5.
01 VAL PIC X(256).
01 SEL5 PIC X(9) VALUE "D1:D50".
01 FORMATO1 pic x(16) value "###############".
PROCEDURE DIVISION.
*> Start EXCEL and make it visible.
INVOKE COM "CREATE-OBJECT" USING APPLICATION RETURNING EXCEL.
INVOKE EXCEL "SET-VISIBLE" USING COM-TRUE.
*> Retrieve WORKBOOK.
INVOKE EXCEL "GET-WORKBOOKS" RETURNING WORKBOOK.
*> Open the file.
INVOKE WORKBOOK "OPEN" USING FILENAME RETURNING WORKBOOK.
*> Retrieve the sheet collection.
INVOKE WORKBOOK "GET-WORKSHEETS" RETURNING SHEETS.
*> Retrieve a worksheet.
INVOKE SHEETS "GET-ITEM" USING SHEETNAME RETURNING WORKSHEET.
*> Retrieve the cell(1,1)object.
MOVE 1 TO ARRAY-ROW. , MOVE 4 TO ARRAY-COL.
INVOKE WORKSHEET "GET-CELLS" USING ARRAY-ROW ARRAY-COL RETURNING CELL.
*> Retrieve the cell value.
INVOKE CELL "GET-VALUE" RETURNING VAL.
* DISPLAY "VALUE = ", VAL.
*> Change the cell value.
MOVE "Articulos" TO VAL .
INVOKE CELL "SET-VALUE" USING VAL.
Invoke WORKSHEET "GET-RANGE" using SEL5 Returning THERANGE.
invoke THERANGE "set-NumberFormat" using FORMATO1.
*> Close the file and save the change by setting the argument to true.
INVOKE WORKBOOK "CLOSE" USING COM-TRUE.
*> Quit EXCEL.
INVOKE EXCEL "QUIT".
SET CELL TO NULL.
SET WORKSHEET TO NULL.
SET SHEETS TO NULL.
SET WORKBOOK TO NULL.
SET EXCEL TO NULL.
Marcadores