Usuário com melhor resposta
Salvar e Fechar planilha excel através do VBA.

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 destinoSet 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- Editado AlbertoFJR quarta-feira, 26 de agosto de 2009 18:36
- Tipo Alterado Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 14:25
Respostas
-
Conseguir fazer...
ThisWorkbook.Application.Quit
Flow
Abraços! Alberto- Sugerido como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 14:25
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 14:25
Todas as Respostas
-
Conseguir fazer...
ThisWorkbook.Application.Quit
Flow
Abraços! Alberto- Sugerido como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 14:25
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 14:25
-
-
-
-
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?
-
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.QuitElse
ThisWorkbook.Application.Quit
ThisWorkbook.Close SaveChanges:=FalseEnd if