Para usar o VBA para fechar uma pasta de trabalho, use o método Workbook.Close e, para sair do Excel, use o método Application.Quit.
Aqui estão alguns exemplos de código: Feche a pasta de trabalho ativa e pergunte se deseja salvar se houver alterações na pasta de trabalho:
Copie o código do código da seguinte forma:
Sub CloseWorkbook()
ActiveWorkbook.Fechar
Finalizar sub
Se quiser evitar prompts, você pode adicionar o parâmetro "SaveChanges", como salvar e fechar diretamente a pasta de trabalho:
Copie o código do código da seguinte forma:
Sub ClostAndSaveWorkbook()
ActiveWorkbook.Close Savechanges: = Verdadeiro
Finalizar sub
Altere “True” no código acima para “False” para fechar a pasta de trabalho diretamente sem salvar.
Feche todas as pastas de trabalho abertas e pergunte se deseja salvar:
Copie o código do código da seguinte forma:
Sub CloseAllWorkbooks()
Em caso de erro, retomar o próximo
Pastas de trabalho.Fechar
Finalizar sub
Saia do Excel e seja solicitado a salvar a pasta de trabalho alterada:
Copie o código do código da seguinte forma:
SubQuitExcel()
Aplicativo.Quit
Finalizar sub
Salve a pasta de trabalho ativa e saia do Excel:
Copie o código do código da seguinte forma:
Sub SaveActiveWorkAndQuit()
ActiveWorkbook.Save
Aplicativo.Quit
Finalizar sub
O código a seguir não perguntará se a pasta de trabalho deve ser salva ao sair do Excel.
Salve todas as pastas de trabalho abertas e feche o Excel:
Copie o código do código da seguinte forma:
Sub SaveAllAndQuit()
Para cada wbk nas pastas de trabalho
wbk.Salvar
Próximo
Aplicativo.Quit
Finalizar sub
Saia do Excel sem salvar nenhuma alteração:
Copie o código do código da seguinte forma:
SubQutiAndNoAlerts()
Application.DisplayAlerts = Falso
Aplicativo.Quit
Finalizar sub
Aqui estão algumas operações comuns em VBA:
Abra uma nova pasta de trabalho
Copie o código do código da seguinte forma:
Pastas de trabalho.Adicionar
Obtenha o nome da primeira pasta de trabalho
Copie o código do código da seguinte forma:
Pastas de trabalho(1).Nome
Obtenha o número de pastas de trabalho abertas
Copie o código do código da seguinte forma:
Pastas de trabalho.Contagem
Ative a segunda pasta de trabalho aberta
Copie o código do código da seguinte forma:
Pastas de trabalho(2).Ativar
Ativar pasta de trabalho Chap02.xls
Copie o código do código da seguinte forma:
Pastas de trabalho("Chap02.xls").Ativar
A pasta de trabalho atualmente ativa é salva como NewChap.xls
Copie o código do código da seguinte forma:
ActiveWorkbook.SaveAs Nome do arquivo:="NewChap.xls"
Feche a primeira pasta de trabalho
Copie o código do código da seguinte forma:
Pastas de trabalho(1).Fechar
Feche a pasta de trabalho atualmente ativa sem salvar as alterações
Copie o código do código da seguinte forma:
ActiveWorkbook.Close SaveChanges:=Falso
Feche todas as pastas de trabalho abertas
Copie o código do código da seguinte forma:
Pastas de trabalho.Fechar
Se você executou o último exemplo, todas as suas pastas de trabalho estão fechadas.
Certifique-se de abrir uma nova pasta de trabalho antes de usá-la em uma planilha.
Ao adicionar uma única planilha, você deve saber como adicionar uma nova planilha à pasta de trabalho, saber como selecionar uma planilha ou um grupo de planilhas e saber como nomear, copiar, mover e excluir planilhas.
No VB, cada tarefa requer um método ou propriedade especializada.
Adicionar uma nova planilha
Copie o código do código da seguinte forma:
Planilhas.Adicionar
Obtenha o nome da primeira planilha
Copie o código do código da seguinte forma:
Planilhas(1).Nome
Selecione a planilha chamada "Planilha3"
Copie o código do código da seguinte forma:
Planilhas(3).Selecione
Selecione a primeira, terceira e quarta planilhas
Copie o código da seguinte forma: Worksheets(Array(1,3,4)).Select
Ative a planilha chamada "Planilha1"
Copie o código do código da seguinte forma:
Planilhas("Planilha1").Ativar
Mova a planilha "Planilha2" antes da planilha "Planilha1"
Copie o código do código da seguinte forma:
Planilhas("Planilha2").Mover Antes:=Planilhas("Planilha1")
Renomeie a planilha "Planilha2" para "Despesas"
Copie o código do código da seguinte forma:
Planilhas("Planilha2").Name = "Despesas"
Obtenha o número de planilhas na pasta de trabalho atual
Copie o código do código da seguinte forma:
Planilhas.Contagem
Exclua a planilha "Despesas" da pasta de trabalho atual
Copie o código do código da seguinte forma:
Planilhas("Despesas").Excluir