Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   Cocina PowerCOBOL (https://www.cobolforo.es/forumdisplay.php?f=24)
-   -   [PowerCOBOL + COM/OLE] Exportación a Excel en OLE2 (https://www.cobolforo.es/showthread.php?t=202)

Rapinto 31 de julio de 2015 01:13
Exportación a Excel en OLE2
 
2 Archivos Adjunto(s)
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

Recato53 29 de julio de 2017 20:01
Cita:
Citación del post de Rapinto (Mensaje 869)
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.

Hrmcobol 19 de enero de 2018 12:12
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

Rapinto 19 de enero de 2018 20:48
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

fastpho 19 de enero de 2018 21:35
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.    

Kuk 19 de enero de 2018 21:54
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 ;)

Hrmcobol 20 de enero de 2018 02:38
"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


La franja horaria es GMT +2. Ahora son las 13:58.

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