Exportación a Excel en OLE2

[Rapinto]

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]

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]

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]

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

https://msdn.microsoft.com/en-us/vba/excel-vba/articles/object-model-excel-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]

Hrmcobol,
Ejemplo de algunas de tus preguntas : abrir , guardar ,
Espero te sirva de algo
Saludos

WORKING-STORAGE SECTION.
01 EXCEL OBJECT REFERENCE COM.
01 WORKBOOK OBJECT REFERENCE COM.
01 SHEETS OBJECT REFERENCE COM.
01 WORKSHEET OBJECT REFERENCE COM.
01 CELL OBJECT REFERENCE COM.
01 THERANGE OBJECT REFERENCE COM.
01 APPLICATION PIC X(20) VALUE "EXCEL.APPLICATION".
01 FILENAME PIC X(20) VALUE "C:\ARTICULOS.CSV".
01 SHEETNAME PIC X(20) VALUE "ARTICULOS".
01 COM-TRUE PIC 1(1) BIT VALUE B"1".
01 FILLER PIC 1(7) BIT.
01 ARRAY-ROW PIC S9(9) COMP-5.
01 ARRAY-COL PIC S9(9) COMP-5.
01 VAL PIC X(256).
01 SEL5 PIC X(9) VALUE "D1:D50".
01 FORMATO1 pic x(16) value "###############".

PROCEDURE DIVISION.
*> Start EXCEL and make it visible.
INVOKE COM "CREATE-OBJECT" USING APPLICATION RETURNING EXCEL.
INVOKE EXCEL "SET-VISIBLE" USING COM-TRUE.
*> Retrieve WORKBOOK.
INVOKE EXCEL "GET-WORKBOOKS" RETURNING WORKBOOK.
*> Open the file.
INVOKE WORKBOOK "OPEN" USING FILENAME RETURNING WORKBOOK.
*> Retrieve the sheet collection.
INVOKE WORKBOOK "GET-WORKSHEETS" RETURNING SHEETS.
*> Retrieve a worksheet.
INVOKE SHEETS "GET-ITEM" USING SHEETNAME RETURNING WORKSHEET.
*> Retrieve the cell(1,1)object.
MOVE 1 TO ARRAY-ROW. , MOVE 4 TO ARRAY-COL.
INVOKE WORKSHEET "GET-CELLS" USING ARRAY-ROW ARRAY-COL RETURNING CELL.
*> Retrieve the cell value.
INVOKE CELL "GET-VALUE" RETURNING VAL.
* DISPLAY "VALUE = ", VAL.
*> Change the cell value.
MOVE "Articulos" TO VAL .
INVOKE CELL "SET-VALUE" USING VAL.
Invoke WORKSHEET "GET-RANGE" using SEL5 Returning THERANGE.
invoke THERANGE "set-NumberFormat" using FORMATO1.


*> Close the file and save the change by setting the argument to true.
INVOKE WORKBOOK "CLOSE" USING COM-TRUE.
*> Quit EXCEL.
INVOKE EXCEL "QUIT".
SET CELL TO NULL.
SET WORKSHEET TO NULL.
SET SHEETS TO NULL.
SET WORKBOOK TO NULL.
SET EXCEL TO NULL.

[Kuk]

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]

"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