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.