Actualizar libro de excel desde Powercobol

[dmosca]

Buenas tardes

tengo que pegar información en un libro de Excel, el libro de Excel tiene varias hojas.

el libro viene con formato definido, las hojas protegidas, no puedo eliminar hojas ni columnas.

puedo interactuar con Excel, pegando los datos en la primer hoja.

como hago para decidir en que hoja trabajar?

POWERCOBOL V9.

muchas gracias
saludos

[fastpho]

@dmosca, Te paso unas lineas de ejemplo para pasarle datos a Excel , para tomar la hoja que necesitas solo debes cambiar el parametro 01 SHEETNAME PIC X(20) VALUE "HOJA1" IS GLOBAL. por el nombre de la hoja que necesites

01 T2 PIC S9(9) COMP-5 IS GLOBAL.
01 T4 PIC S9(9) COMP-5 IS GLOBAL.
01 FIL PIC S9(9) COMP-5 IS GLOBAL.
01 COL PIC S9(9) COMP-5 IS GLOBAL.

01 EXCEL OBJECT REFERENCE COM IS GLOBAL.
01 WORKBOOK OBJECT REFERENCE COM IS GLOBAL.
01 SHEETS OBJECT REFERENCE COM IS GLOBAL.
01 WORKSHEET OBJECT REFERENCE COM IS GLOBAL.
01 THERANGE OBJECT REFERENCE COM.
01 CELL OBJECT REFERENCE COM IS GLOBAL.
01 FONT OBJECT REFERENCE COM.

01 APPLICATION PIC X(20) VALUE "EXCEL.APPLICATION" IS GLOBAL.
01 SHEETNAME PIC X(20) VALUE "HOJA1" IS GLOBAL.
01 COM-TRUE PIC 1(1) BIT VALUE B"1" IS GLOBAL.
01 VAL PIC X(300) IS GLOBAL.


INVOKE COM "CREATE-OBJECT" USING APPLICATION RETURNING EXCEL.
INVOKE EXCEL "SET-VISIBLE" USING COM-TRUE.
INVOKE EXCEL "GET-WORKBOOKS" RETURNING WORKBOOK.
INVOKE WORKBOOK "ADD" RETURNING WORKBOOK.
INVOKE WORKBOOK "GET-WORKSHEETS" RETURNING SHEETS.
INVOKE SHEETS "GET-ITEM" USING SHEETNAME RETURNING WORKSHEET.