Como excluir a pasta de trabalho ativa (arquivo atual) no Excel?
Digamos que você baixou uma pasta de trabalho de um site da Web e a pasta de trabalho foi aberta automaticamente. No entanto, a pasta de trabalho pode não ser a correta ou não contém as informações necessárias e você deseja excluí-la. Às vezes, você provavelmente se esquece do diretório padrão em que os arquivos baixados são salvos automaticamente. Não se preocupe, podemos excluir a pasta de trabalho aberta / ativa sem fechá-la diretamente no Excel.
Excluir pasta de trabalho ativa (arquivo atual) com VBA
Um clique para abrir a pasta que contém a pasta de trabalho ativa com esta pasta de trabalho selecionada
Para abrir rapidamente a pasta/diretório que contém a pasta de trabalho atual e selecionar a pasta de trabalho atual na pasta de abertura, experimente o Kutools para Excel Abrir pasta de conteúdo utilidade.
Excluir pasta de trabalho ativa (arquivo atual) com VBA
Este método apresentará um VBA para excluir a pasta de trabalho aberta / ativa sem fechá-la no Excel. Faça o seguinte:
1. aperte o outro + F11 simultaneamente para abrir a janela Microsoft Visual Basic for Applications.
2. Clique inserção > Módulo, copie o seguinte código VBA e cole na janela do módulo de abertura.
VBA: Excluir pasta de trabalho ativa sem fechá-la no Excel
Sub DeleteActiveWorkbook()
Dim xFullName As String
xFullName = Application.ActiveWorkbook.FullName
ActiveWorkbook.Saved = True
Application.ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill xFullName
Application.ActiveWorkbook.Close False
End Sub3. aperte o F5 chave ou Execute botão para executar este VBA.
Notas:
(1) Este VBA pode excluir a pasta de trabalho ativa, mas não pode fechar a janela do Excel. Se nenhuma pasta de trabalho for aberta após a exclusão da pasta de trabalho ativa, feche a janela do Excel manualmente.
(2) Se a pasta de trabalho ativa nunca foi salva antes, este VBA não será capaz de excluí-la. No entanto, você pode excluir esta pasta de trabalho não salva diretamente, fechando-a.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
