Como verificar se um ficheiro existe numa pasta e, em seguida, eliminá-lo no Excel?
Neste tutorial, vai aprender um script VBA para verificar se um determinado ficheiro existe numa pasta especificada e, caso exista, eliminá-lo dessa pasta no Excel.
Verifique se um ficheiro existe numa pasta e, em seguida, elimine-o no Excel com código VBA
O seguinte script VBA permite verificar se um determinado ficheiro existe numa pasta e eliminá-lo, caso exista. Siga os passos abaixo.
1. Numa pasta de trabalho do Excel aberta, prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo e, de seguida, copie o seguinte script VBA para a janela do Módulo (Código).
opção Módulo« class=»mobile-first" />
Código VBA: Verificar se um ficheiro existe numa pasta especificada e, em seguida, eliminá-lo
Sub CheckFileThenDelete()
'Updated by Extendoffice 20221024
Dim FilePath As String
FilePath = "C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx"
If Dir(FilePath) <> "" Then
MsgBox "The file exists in the folder, click the OK button to delete it.", vbInformation, "Kutools for Excel"
Kill FilePath
Else
If Dir(FilePath) = "" Then
MsgBox "The file does not exist.", vbInformation, "Kutools for Excel"
End If
End If
End Sub
Nota: No código VBA, C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx é o caminho do ficheiro que pretende verificar se existe. Neste exemplo, pretende-se verificar se existe um ficheiro do Excel com o nome “aaa” numa pasta denominada “save attachments” no ambiente de trabalho. Pode adaptar o caminho do ficheiro e a respetiva extensão às suas necessidades.
3. Prima a tecla F5 para executar o código.
4. Se o ficheiro existir, irá aparecer uma caixa de diálogo Kutools para Excel, como mostra a imagem abaixo. Clique no botão OK para remover este ficheiro da pasta.
Se o arquivo não existir ou não estiver na pasta, irá também surgir outra caixa de diálogo Kutools para Excel para o alertar.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos