Tema: Actualizar libro de excel desde Powercobol
Ver Mensaje Individual
  #2
Antiguo 22 de agosto de 2020, 15:14
fastpho
El Foro es mi casa
Innovación: Por aportar innovaciones - Issue reason: SQLite + OO Cobol class Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Issue reason: Acceso a datos Cobol vía web 
Última Actividad 21.08.2026 18:08
Posts Posts: 365
Likes enviados Enviados: 252
Likes recibidos Recibidos: 243
Predeterminado
2
Likes

David
dmosca

 Inactivo Inactivo
@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.
fastpho is offline   Responder Con Cita