Resultados 1 al 7 de 7

Tema: Exportación a Excel en OLE2

  1. #1
      Gran amigo del Foro y Guru de COBOL
    Avatar de Rapinto

    Registrado
    febrero de 2015
    Mensajes
    246
    Ciudad
    Porto

    Agradecimientos
     
    Recibidos
    225
    Enviados
    19

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    17
    Activista del Foro / Point Value: 0 Agradecimientos / Point Value: 0 Guru de los Gurus / Point Value: 0

    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
    Imagem Anexada Imagem Anexada
    Ficheros adjuntos Ficheros adjuntos

    0 Not allowed!

  2. #2
      Patrocinador del Foro
    R

    Registrado
    febrero de 2015
    Mensajes
    77
    Ciudad
    Valladolid

    Agradecimientos
     
    Recibidos
    11
    Enviados
    72

    Citaciones y menciones
     
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    8

    Predeterminado

    Cita Iniciado por 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.

    0 Not allowed!

  3. #3
      Guardián del Foro
    H

    Registrado
    febrero de 2015
    Edad
    70
    Mensajes
    327
    Ciudad
    Puerto Madryn

    Agradecimientos
     
    Recibidos
    118
    Enviados
    107

    Citaciones y menciones
     
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    19
    Guardián del Foro / Point Value: 0

    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

    0 Not allowed!
    Última edición por Hrmcobol; 19.01.2018 a las 12:14 Razón: Quiero agregar el titulo

  4. #4
      Gran amigo del Foro y Guru de COBOL
    Avatar de Rapinto

    Registrado
    febrero de 2015
    Mensajes
    246
    Ciudad
    Porto

    Agradecimientos
     
    Recibidos
    225
    Enviados
    19

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    17
    Activista del Foro / Point Value: 0 Agradecimientos / Point Value: 0 Guru de los Gurus / Point Value: 0

    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

    0 Not allowed!

  5. #5
      Senior
    Avatar de fastpho

    Registrado
    diciembre de 2016
    Edad
    51
    Mensajes
    231
    Ciudad
    Mendoza

    Agradecimientos
     
    Recibidos
    149
    Enviados
    142

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    5 Post(s)
    Poder de Reputación
    19
    Concurso: Primer puesto / Point Value: 0

    Predeterminado

    @Hrmcobol,
    Ejemplo de algunas de tus preguntas : abrir , guardar ,
    Espero te sirva de algo
    Saludos
    COBOL Código:
    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.    

    0 Not allowed!

  6. #6
      Administrador
    Avatar de Kuk

    Registrado
    enero de 2015
    Edad
    37
    Mensajes
    2,013
    Ciudad
    Madrid

    Agradecimientos
     
    Recibidos
    863
    Enviados
    722

    Citaciones y menciones
     
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    5 Post(s)
    Poder de Reputación
    10

    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

    0 Not allowed!

    ¿Te han ayudado? NO TE OLVIDES de darle al botón
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención, tienes 2 opciones:
    1. Haciendo clic en el icono al lado de su nick
    2. Haciendo clic en el editor al botón y escribiendo su nick.

  7. #7
      Guardián del Foro
    H

    Registrado
    febrero de 2015
    Edad
    70
    Mensajes
    327
    Ciudad
    Puerto Madryn

    Agradecimientos
     
    Recibidos
    118
    Enviados
    107

    Citaciones y menciones
     
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    19
    Guardián del Foro / Point Value: 0

    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

    0 Not allowed!

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Temas Similares

  1. [Aporte] Base de Dados DBF por OLE2
    Por Rapinto en el foro Cocina PowerCOBOL + COM/OLE
    Respuestas: 3
    Último Mensaje: 24.06.2015, 11:36

User Tag List

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •