Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Actualizar libro de excel desde Powercobol (https://www.cobolforo.es/showthread.php?t=1206)

dmosca 21 de agosto de 2020 21:21
Actualizar libro de excel desde Powercobol
 
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 22 de agosto de 2020 15:14
@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
Código COBOL:
  1. 01 T2 PIC    S9(9) COMP-5 IS GLOBAL.
  2.  01 T4 PIC S9(9) COMP-5 IS GLOBAL.
  3.  01 FIL PIC    S9(9) COMP-5 IS GLOBAL.
  4.  01 COL PIC S9(9) COMP-5 IS GLOBAL.
  5.  
  6.  01 EXCEL OBJECT REFERENCE COM IS GLOBAL.
  7.  01 WORKBOOK OBJECT REFERENCE COM IS GLOBAL.
  8.  01 SHEETS OBJECT REFERENCE COM IS GLOBAL.
  9.  01 WORKSHEET OBJECT REFERENCE COM IS GLOBAL.
  10.  01 THERANGE OBJECT REFERENCE COM.  
  11.  01 CELL OBJECT REFERENCE COM IS GLOBAL.
  12.  01 FONT  OBJECT REFERENCE COM.
  13.  
  14.  01 APPLICATION PIC X(20) VALUE "EXCEL.APPLICATION" IS GLOBAL.
  15.  01 SHEETNAME PIC X(20) VALUE "HOJA1" IS GLOBAL.
  16.  01 COM-TRUE PIC 1(1) BIT VALUE B"1" IS GLOBAL.
  17.  01 VAL PIC X(300) IS GLOBAL.
Código COBOL:
  1.  INVOKE COM "CREATE-OBJECT" USING APPLICATION RETURNING EXCEL.  
  2.      INVOKE EXCEL "SET-VISIBLE" USING COM-TRUE.  
  3.      INVOKE EXCEL "GET-WORKBOOKS" RETURNING WORKBOOK. 
  4.      INVOKE WORKBOOK "ADD" RETURNING WORKBOOK. 
  5.      INVOKE WORKBOOK "GET-WORKSHEETS" RETURNING SHEETS.  
  6.      INVOKE SHEETS "GET-ITEM" USING SHEETNAME RETURNING WORKSHEET.


La franja horaria es GMT +2. Ahora son las 04:33.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.