none
Salvar e Fechar planilha excel através do VBA. RRS feed

  • Pergunta

  • Pessoal, buenas tardes...

    Desenvolvi uma aplicaçãozinha em VBA do qual de uma pasta de trabalho (origem) excel ele abre uma outra pasta de trabalho (destino) , após ele ter aberto o arquivo (pasta de trabalho) destino ele pega algumas informações dela, e atualiza a origem...

    Entretanto eu consegui fazer com que a destino seja fechada, e também consegui fechar e salvar a orirem, só que a janela do aplicativo fica aberta.

    Como fazer para encerrar a janela do aplicativo?





        oXLSFile.Close     ' encerra destino
        oXLSApp.Quit      ' encerra destino

        Set oXLSFile = Nothing     ' encerra destino
        Set oXLSApp = Nothing    ' encerra destino


    ' Salvar e fechar arquivo
    ThisWorkbook.Close SaveChanges:=True    ' salva e fecha planilha origem.



    Como fazer para encerrar a aplicação em si da origem, pois não estou conseguindo.


    Abraços! Alberto
    quarta-feira, 26 de agosto de 2009 18:34

Respostas

Todas as Respostas

  • Conseguir fazer...

    ThisWorkbook.Application.Quit


    Flow
    Abraços! Alberto
    quarta-feira, 26 de agosto de 2009 19:35
  • Cara, mandou muito bem!!!
    Testei e funcionou direitinho!
    Valeu mesmo pela ajuda! 
    quarta-feira, 17 de agosto de 2011 20:16
  • Com esse comando ele fecha apenas a planilha, mas o aplicativo excel fica aberto. Qual seria o comando para que o excel fechasse por completo.

    segunda-feira, 14 de julho de 2014 19:39
  • Só retirar o thisWorkbook.....

    Deixa apenas Application.Quit

    segunda-feira, 14 de julho de 2014 19:52
  • Estou com um problema parecido.

    Tenho uma planilha em rede que precisa consultar outras planilhas, também em rede.

    Consigo perfeitamente abrir essas plans para carregar o indireto que utilize no procv.

    Mas na hora de fechar essas plans dá erro 1004 "O método select da classe range falhou"

    Alguém consegue me ajudar?

    quarta-feira, 7 de outubro de 2015 14:37
  •     Dim RESPOSTA As Integer
        Dim ANS As Integer
        RESPOSTA = vbYesNo + vbQuestion + vbDefaultButton2
        ANS = MsgBox("Deseja salvar e sair desta planilha?", RESPOSTA, "CONTROLE FINANCEIRO - CASA")
        If ANS = vbYes Then
            ActiveWorkbook.Save
            Application.Quit

        Else 

        ThisWorkbook.Application.Quit
        ThisWorkbook.Close SaveChanges:=False

    End if

            
    domingo, 29 de maio de 2016 22:33