Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Fujitsu COBOL PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
 
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
Exportar informacion desde un archivo a Excel Roberto PowerCOBOL (ActiveX, v4 - v11) 0 20 de agosto de 2023 15:46
[PowerCOBOL] Desde Excel a ListView o CmTable Josber Cocina PowerCOBOL 38 7 de diciembre de 2022 12:41
[Sintaxis] Actualizar campo en una hoja de Excel orlando PowerCOBOL (ActiveX, v4 - v11) 1 17 de noviembre de 2019 21:57
[Noticia] Traslado Caracteres de Excel a powercobol Gatomalo PowerCOBOL (ActiveX, v4 - v11) 5 4 de marzo de 2016 18:49
[Sintaxis] PowerCobol y Excel Hrmcobol PowerCOBOL (ActiveX, v4 - v11) 1 15 de febrero de 2015 18:53

Respuesta

  #1
Antiguo 21 de agosto de 2020, 21:21
dmosca
Forero
Última Actividad 07.07.2022 13:19
Posts Posts: 69
Likes enviados Enviados: 32
Likes recibidos Recibidos: 3
Libro Actualizar libro de excel desde Powercobol
0 Inactivo Inactivo

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
dmosca is offline   Responder Con Cita
  #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

@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
Respuesta


Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado

Saltar a Foro


La franja horaria es GMT +2. Ahora son las 15:45.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.