Relatorio .csv em colunas

Discussão em 'Progress 4GL' iniciado por rafaelpozzato, Junho 14, 2012.

  1. rafaelpozzato

    rafaelpozzato Sem Pontuação

    Desculpe, me interpretei mal. o arquivo é em excel.
  2. tarcisio11bmsl

    tarcisio11bmsl Sem Pontuação

    Pessoal, bom dia.

    Aqui na empresa eu uso o esquema de modelos. Monto um arquivo em xls (ou xlsx), com as formatações todas feitas, mas os campos de dados em branco.

    Aí abro o arquivo de Excel, e depois trabalho normalmente nele:

    Código:
    DEFINE VARIABLE h-prog AS HANDLE NO-UNDO.
    DEFINE VARIABLE chExcelApplication AS COM-HANDLE NO-UNDO.
    DEFINE VARIABLE chWorkbook AS COM-HANDLE NO-UNDO.
    DEFINE VARIABLE chworksheet AS COM-HANDLE.
    DEFINE VARIABLE c-modelo  AS CHARACTER   NO-UNDO.
    DEFINE VARIABLE c-arq     AS CHARACTER   NO-UNDO.
    DEFINE VARIABLE c-arquivo AS CHARACTER   NO-UNDO.
    
    ASSIGN c-modelo = "caminho\arquivo.xlsx"
               c-arq = SESSION:TEMP-DIRECTORY.
    
    ASSIGN c-arquivo = c-arq + 'texto' + STRING(TIME) + '.xlsx'.
    
    OS-COPY VALUE(c-modelo) VALUE(c-arquivo).
    
    CREATE "Excel.Application" chExcelApplication.
    
    chExcelApplication:workbooks:ADD(c-modelo).
    chworksheet=chexcelapplicAtion:sheets:item(1).
    chworksheet:NAME="Nome".
    
    ASSIGN chworksheet:range("A1") = 'variável'.
    
    
    Espero ter ajudado!!

    Ats.

    Tarcísio

Compartilhe esta Página