Fechar + de uma planilha excel

Discussão em 'Progress 4GL' iniciado por muertebr, Julho 26, 2012.

  1. muertebr

    muertebr Membro Participativo

    Como faço pra fecha mais de uma planilha no excel, e finalizar o processo?

    Se eu usar o código abaixo quando eu possuo somente uma planilha, ele faz corretamente, salva o arquivo no local, fecha o excel, e finaliza o processo, agora se tem mais de uma planilha, ele faz tudo menos finalizar o processo.
    Ja tentei alterar o Item(1), para o numero de planilhas mais não funciona.

    Código:
    chExcelApplication:Workbooks:Item(1):SaveAs(tt-param.c-nome-excel,-4143,,,,,) NO-ERROR.
    ASSIGN chExcelApplication:Visible = NO.
    
    Release Object chWorksheet No-error.
    RELEASE OBJECT chWorkbook No-error.
    ASSIGN chExcelApplication:QUIT = YES NO-ERROR.
    RELEASE OBJECT chExcelApplication No-error.
    alguma idéia/ajuda?
  2. muertebr

    muertebr Membro Participativo

    Já resolvi, e ja tinha feito uma vez.
    Após o uso de cada planilha ou antes de usa uma nova planilha usa o comando.

    Release Object chWorksheet.
  3. Arlindo G da Silva

    Arlindo G da Silva Sem Pontuação

    Ola boa tarde

    Estou testando esta forma de encerrar o excel.

    Mas não esta encerrando no Gerenciador de tarefas do windows o excel.

    Att.

    Arlindo
  4. LFBuozi

    LFBuozi Membro Participativo

    Coloque no final:
    Código:
    chExcelApplication:QUIT.
  5. Arlindo G da Silva

    Arlindo G da Silva Sem Pontuação

    Ola bom dia

    Funcionou colocando a linha sugerida.

    Mas abre a janela de solicitação de confirmação de gravação devido as alterações da planilha.

    Preciso salvar em abrir a solicitação de confirmação.

    att

    Arlindo.
  6. LFBuozi

    LFBuozi Membro Participativo

    Sendo assim, o comando abaixo vai desabilitar todas as notificações do Excel, assim como fechar sem salvar, substituir arquivo e outros.
    Use antes do comando que está exibindo o alerta.

    Código:
    ASSIGN chExcelApplication:DisplayAlerts = NO.

Compartilhe esta Página