Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   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
Noticias y Avisos
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 11:36
Respuesta
 
Herramientas

  #1
Antiguo 31 de julio de 2015, 01:13
IDENTIFICATION DIVISION
Rapinto
Gran amigo del Foro y Guru de COBOL
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
Forero desde (Registrado)febrero 2015
Portugal
UbicaciónPorto
Última Actividad29.01.2018 20:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 215
Medallas recibidas: 2Medallas: 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! 
ReputaciónReputación: 13
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, 44 descargas)
Archivos Adjuntos
Tipo de Archivo: zip EXCEL_OLE2.zip (427,0 KB, 54 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, 20:01
IDENTIFICATION DIVISION
Recato53
Patrocinador del Foro
ENVIRONMENT DIVISION
Avatar de Recato53
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
UbicaciónValladolid
Última Actividad05.02.2019 19:44
PROCEDURE DIVISION
PostsPosts: 71
Ha dicho GraciasEnviado: 68
Ha recibido agradecimientosRecibido: 9
ReputaciónReputación: 5
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, 12:12
IDENTIFICATION DIVISION
Hrmcobol
Guardián del Foro
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
UbicaciónPuerto Madryn
Edad67 años
Última Actividad25.01.2019 17:58
PROCEDURE DIVISION
PostsPosts: 258
Ha dicho GraciasEnviado: 89
Ha recibido agradecimientosRecibido: 81
Medallas recibidas: 1Medallas: Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ReputaciónReputación: 12
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 12:14. Razón: Quiero agregar el titulo
Hrmcobol no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 19 de enero de 2018, 20:48
IDENTIFICATION DIVISION
Rapinto
Gran amigo del Foro y Guru de COBOL
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
Forero desde (Registrado)febrero 2015
Portugal
UbicaciónPorto
Última Actividad29.01.2018 20:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 215
Medallas recibidas: 2Medallas: 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! 
ReputaciónReputación: 13
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, 21:35
IDENTIFICATION DIVISION
fastpho
Novato Junior
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
Forero desde (Registrado)diciembre 2016
Argentina
UbicaciónMendoza
Edad48 años
Última Actividad21.03.2019 21:08
PROCEDURE DIVISION
PostsPosts: 50
Ha dicho GraciasEnviado: 37
Ha recibido agradecimientosRecibido: 13
ReputaciónReputación: 4
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, 21:54
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad21.03.2019 20:57
PROCEDURE DIVISION
PostsPosts: 1.357
Ha dicho GraciasEnviado: 291
Ha recibido agradecimientosRecibido: 500
ReputaciónReputació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 - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
  #7
Antiguo 20 de enero de 2018, 02:38
IDENTIFICATION DIVISION
Hrmcobol
Guardián del Foro
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
UbicaciónPuerto Madryn
Edad67 años
Última Actividad25.01.2019 17:58
PROCEDURE DIVISION
PostsPosts: 258
Ha dicho GraciasEnviado: 89
Ha recibido agradecimientosRecibido: 81
Medallas recibidas: 1Medallas: Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ReputaciónReputación: 12
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 06:01.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.