Salvar e Fechar planilha excel através do VBA.

Question

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

Answer 1

Conseguir fazer...

ThisWorkbook.Application.Quit


Flow

---

Abraços! Alberto

Answer 2

Cara, mandou muito bem!!!
Testei e funcionou direitinho!
Valeu mesmo pela ajuda! 

Answer 3

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.

Answer 4

Só retirar o thisWorkbook.....

Deixa apenas Application.Quit

Answer 5

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?

Answer 6

    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