Como verificar se existe um arquivo em uma pasta e excluí-lo no Excel?
Neste tutorial, você aprenderá um script VBA para verificar se um determinado arquivo existe em uma pasta especificada, se existir, exclua-o da pasta no Excel.
Verifique se existe um arquivo em uma pasta e exclua-o no Excel com o código VBA
O script VBA a seguir ajuda a verificar se um determinado arquivo existe em uma pasta e excluí-lo, se existir. Por favor, faça o seguinte.
1. Em uma pasta de trabalho do Excel aberta, pressione o botão outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo, copie o seguinte script VBA para o Módulo (Código) janela.
Código VBA: verifique se existe um arquivo em uma pasta especificada e exclua-o
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
Note: No código VBA, C:\Users\Win10x64Test\Desktop\salvar anexos\aaa.xlsx é o caminho do arquivo que você deseja verificar se existe. Neste exemplo, quero verificar se um arquivo do Excel chamado “aaa” existe em uma pasta chamada “salvar anexos” na área de trabalho. Você pode alterar o caminho do arquivo e a extensão do arquivo para atender às suas necessidades.
3. aperte o F5 chave para executar o código.
4. Se o arquivo existir, você receberá um Kutools for Excel caixa de diálogo conforme mostrado na captura de tela abaixo. Clique no OK botão para remover este arquivo da pasta.
Se o arquivo não existir na pasta, outro Kutools for Excel caixa de diálogo também aparecerá para alertá-lo.
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!
