Ajuda com Excel

Discussão em 'Progress 4GL' iniciado por antenor, Maio 30, 2011.

  1. antenor

    antenor Membro Participativo

    Consegui através deste fórum um código para exportar dados para o excel:
    DEFINE VARIABLE chexcel AS COM-HANDLE NO-UNDO.
    DEFINE VARIABLE chWorkBook AS COM-HANDLE NO-UNDO.
    DEFINE VARIABLE chPlanilha AS COM-HANDLE NO-UNDO.


    CREATE "excel.application" chexcel.

    ASSIGN chWorkBook = chExcel:workbooks:ADD().
    chPlanilha = chWorkBook:workSheets(1).
    chPlanilha:cells(1,1):VALUE = "Teste".
    chPlanilha:cells(1,2):VALUE = "Teste".

    chworkbook:saveas("c:\testePlanilha.xls",yes,"","",no,no,no).
    chWorkBook:OPEN().


    IF VALID-HANDLE(chPlanilha) THEN
    RELEASE OBJECT chPlanilha.
    IF VALID-HANDLE(chWorkBook) THEN
    RELEASE OBJECT chWorkBook.
    IF VALID-HANDLE(chexcel) THEN
    RELEASE OBJECT chexcel.

    Entretando o mesmo finaliza com um erro de gravação. Ele gera uma planilha que eu não consigo abrir. Se alguém tiver uma solução ou outro tipo de exportação.
    Eu também preciso que estes dados sejam exportados para uma planilha específica. Eu gostaria de saber qual o comando que abre um determinado arquivo em excel, grava os dados e depois fecha.
    Obrigado a todos.
  2. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Tente trocar os comandos:

    chworkbook:saveas("c:\testePlanilha.xls",yes,"","",no,no,no).
    chWorkBook:OPEN().

    Por este:

    chexcel:VISIBLE = YES.
  3. antenor

    antenor Membro Participativo

    Rogério, já ajudou bastante, mas eu gostaria que os dados fossem exportados para dentro de uma planilha específica que eu já tenho na máquina.
    Vc sabe quel é o comando para abrir determinada planilha?
    Obrigado
  4. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    chLivro = chExcel:WorkBooks:OPEN(tt-param.arq-entrada) NO-ERROR.
  5. antenor

    antenor Membro Participativo

    Muito obrigado, ficou perfeito.
  6. antenor

    antenor Membro Participativo

    Rogério, funcionou, mas eu gostaria que o arquivo em excel fosse salvo e fechado automaticamente. Quais são os comandos para isto.

Compartilhe esta Página