Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Cocina Casera > Cocina PowerCOBOL + COM/OLE
Cocina PowerCOBOL + COM/OLE Código PowerCOBOL en utilización con OLE/COM
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Aporte] Base de Dados DBF por OLE2 Rapinto Cocina PowerCOBOL + COM/OLE 3 24 de junio de 2015 10:36
Respuesta
 
Herramientas

  #1
Antiguo 31 de julio de 2015, 00:13
IDENTIFICATION DIVISION
Rapinto
 Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
febrero 2015
Porto
29.01.2018 19:23
PROCEDURE DIVISION
Posts: 246
Enviado: 19
Recibido: 221
Soluiones: 47
Reputación: 16
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Tabla Exportación a Excel en OLE2

Mais um exemplo de exportação de PowerCobol para Excel.

Em cada botão tem o codigo necessário para cada função.
Espero que sirva de exemplo para alguem.
Funções: Mudar tipo de letra para Bold
Alterar Largura da Celula
Alterar Altura da Linha
Apagar uma Coluna
Mudar Cor da Letra
Mudar cor do Fundo
e mais ...
Está em PowerCobol9.

Un saludo a todos
Rui Pinto
Imágenes Adjuntas
Tipo de Archivo: jpg Image1.jpg (508,6 KB, 53 descargas)
Archivos Adjuntos
Tipo de Archivo: zip EXCEL_OLE2.zip (427,0 KB, 76 descargas)
Rapinto no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 8
Breew (25 de agosto de 2015), Hrmcobol ( 1 de agosto de 2015), Josber (31 de julio de 2015), Kuk (31 de julio de 2015), Lascu (10 de mayo de 2016), Recato53 (29 de julio de 2017), Roger ( 1 de agosto de 2015), Socavi (31 de julio de 2015)
  #2
Antiguo 29 de julio de 2017, 19:01
IDENTIFICATION DIVISION
Recato53
 Patrocinador del Foro
ENVIRONMENT DIVISION
Avatar de Recato53
DATA DIVISION
febrero 2015
Valladolid
23.07.2020 11:16
PROCEDURE DIVISION
Posts: 77
Enviado: 72
Recibido: 11
Soluiones: 2
Reputación: 7
Recato53 is on a distinguished road
Predeterminado

Cita del post de Rapinto Ver Mensaje
Mais um exemplo de exportação de PowerCobol para Excel.

Em cada botão tem o codigo necessário para cada função.
Espero que sirva de exemplo para alguem.
Funções: Mudar tipo de letra para Bold
Alterar Largura da Celula
Alterar Altura da Linha
Apagar uma Coluna
Mudar Cor da Letra
Mudar cor do Fundo
e mais ...
Está em PowerCobol9.

Un saludo a todos
Rui Pinto
En el ejemplo que envias.
No consigo darle nombre (Ej: Hoja_20170729) a la Hoja Excel.
Quiero primero cargar todos los datos y luego mostrar en pantalla.
Quiero poner cabeceras.
¿Dónde consigo información de mas comandos, para usarlo en PWC 9?.

Si pudieras completar el ejemplo seria de una gran ayuda.

Muchas gracias.
Recato53 no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 19 de enero de 2018, 11:12
IDENTIFICATION DIVISION
Hrmcobol
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
febrero 2015
Puerto Madryn
69 años
14.06.2021 02:25
PROCEDURE DIVISION
Posts: 313
Enviado: 102
Recibido: 116
Soluiones: 10
Reputación: 18
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado Retomo este post del 2015

El ejemplo funciona ok.
Tengo las mismas preguntas que Recato.
1-Como hago para abrir una planilla existente?
2-Como hago para grabar una planila con un nombre especifico?
2-Donde consigo información de mas comandos?
3-Tengo Experiencia CERO en OLE, donde puedo conseguir información para leer, en lo posible en español.

Saludos !!!
Hrm

Última edición por Hrmcobol fecha: 19 de enero de 2018 a las 11:14. Razón: Quiero agregar el titulo
Hrmcobol no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 19 de enero de 2018, 19:48
IDENTIFICATION DIVISION
Rapinto
 Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
febrero 2015
Porto
29.01.2018 19:23
PROCEDURE DIVISION
Posts: 246
Enviado: 19
Recibido: 221
Soluiones: 47
Reputación: 16
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado

Verifiquem neste link os 300 ou 400 (ou mais...) comandos possíveis em ole2 para Excel

https://msdn.microsoft.com/en-us/vba...-vba-reference

Alguns deles não funcionam com o PowerCobol. (Não consigo perceber porquê).

É muito complicado depois acertar as instruções em PowerCobol pois a documentação não está muito clara.
Un saludo,
Rui Pinto
Rapinto no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 19 de enero de 2018, 20:35
IDENTIFICATION DIVISION
fastpho
 Novato Senior
Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Razón: Acceso a datos Cobol vía web 
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
diciembre 2016
Mendoza
50 años
16.06.2021 22:55
PROCEDURE DIVISION
Posts: 146
Enviado: 99
Recibido: 84
Soluiones: 19
Reputación: 13
fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point
Predeterminado

Hrmcobol,
Ejemplo de algunas de tus preguntas : abrir , guardar ,
Espero te sirva de algo
Saludos
Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  01 EXCEL OBJECT REFERENCE COM.
  3.  01 WORKBOOK OBJECT REFERENCE COM.
  4.  01 SHEETS OBJECT REFERENCE COM.
  5.  01 WORKSHEET OBJECT REFERENCE COM.
  6.  01 CELL OBJECT REFERENCE COM.
  7.  01 THERANGE OBJECT REFERENCE COM.
  8.  01 APPLICATION PIC X(20) VALUE "EXCEL.APPLICATION".
  9.  01 FILENAME PIC X(20) VALUE "C:\ARTICULOS.CSV".
  10.  01 SHEETNAME PIC X(20) VALUE "ARTICULOS".
  11.  01 COM-TRUE PIC 1(1) BIT VALUE B"1".
  12.  01 FILLER PIC 1(7) BIT.
  13.  01 ARRAY-ROW PIC S9(9) COMP-5.
  14.  01 ARRAY-COL PIC S9(9) COMP-5.
  15.  01 VAL PIC X(256).
  16.  01 SEL5    PIC X(9) VALUE "D1:D50".     
  17.  01 FORMATO1   pic x(16) value "###############".
  18.  
  19.  PROCEDURE       DIVISION.
  20. *> Start EXCEL and make it visible.
  21.      INVOKE COM "CREATE-OBJECT" USING APPLICATION RETURNING EXCEL.
  22.      INVOKE EXCEL "SET-VISIBLE" USING COM-TRUE.
  23. *> Retrieve WORKBOOK.
  24.      INVOKE EXCEL "GET-WORKBOOKS" RETURNING WORKBOOK.
  25. *> Open the file.
  26.      INVOKE WORKBOOK "OPEN" USING FILENAME RETURNING WORKBOOK.
  27. *> Retrieve the sheet collection.
  28.      INVOKE WORKBOOK "GET-WORKSHEETS" RETURNING SHEETS.
  29. *> Retrieve a worksheet.
  30.      INVOKE SHEETS "GET-ITEM" USING SHEETNAME RETURNING WORKSHEET.
  31. *> Retrieve the cell(1,1)object.
  32.      MOVE 1 TO ARRAY-ROW. , MOVE 4 TO ARRAY-COL.
  33.      INVOKE WORKSHEET "GET-CELLS" USING ARRAY-ROW ARRAY-COL RETURNING CELL.
  34. *> Retrieve the cell value.
  35.      INVOKE CELL "GET-VALUE" RETURNING VAL.
  36. *    DISPLAY "VALUE = ", VAL.
  37. *> Change the cell value.
  38.      MOVE "Articulos" TO VAL .
  39.      INVOKE CELL "SET-VALUE" USING VAL.
  40.      Invoke WORKSHEET  "GET-RANGE"  using SEL5 Returning THERANGE.
  41.      invoke THERANGE "set-NumberFormat" using FORMATO1.
  42.  
  43.  
  44. *> Close the file and save the change by setting the argument to true.
  45.      INVOKE WORKBOOK "CLOSE" USING COM-TRUE.
  46. *> Quit EXCEL.
  47.      INVOKE EXCEL "QUIT".
  48.      SET CELL TO NULL.
  49.      SET WORKSHEET TO NULL.
  50.      SET SHEETS TO NULL.
  51.      SET WORKBOOK TO NULL.
  52.      SET EXCEL TO NULL.
  53.    
fastpho no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Hrmcobol (20 de enero de 2018)
  #6
Antiguo 19 de enero de 2018, 20:54
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
16.06.2021 09:06
PROCEDURE DIVISION
Posts: 1.754
Enviado: 552
Recibido: 721
Soluiones: 94
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Rapinto, qué comandos no funcionan? Puedes publicar un ejemplo para que lo mire?

---------- Post añadido : 21:54 ---------- Post anterior : 21:51 ----------

fastpho, por qué le has dado extensión *.CSV? El CSV es valores separados por punto y coma, puede ser generado directamente en Cobol. Me imagino que viene del copy/paste. La extensión debería ser *.xlsx



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #7
Antiguo 20 de enero de 2018, 01:38
IDENTIFICATION DIVISION
Hrmcobol
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
febrero 2015
Puerto Madryn
69 años
14.06.2021 02:25
PROCEDURE DIVISION
Posts: 313
Enviado: 102
Recibido: 116
Soluiones: 10
Reputación: 18
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado

"dediesfastphodediesss !!!!!" jajajaj
Gracias fastpho, es lo que buscaba, ya logre abrir agregar y cerrar un excel.
Gracias Rapinto, Gracias kuk,

Trabajare sobre este tema y les cuento. La semana que viene probare en el office 2013, que es el motivo e mis consultas.

Saludos
Hrmcobol no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
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



La franja horaria es GMT +1. Ahora son las 09:57.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.