Come verificare se un file esiste in una cartella e poi eliminarlo in Excel?

In questo tutorial, imparerai uno script VBA per verificare se un determinato file esiste in una cartella specificata e, se esiste, eliminarlo dalla cartella in Excel.

Verifica se un file esiste in una cartella e poi eliminalo in Excel con il codice VBA

Il seguente script VBA aiuta a verificare se un determinato file esiste in una cartella ed eliminarlo se presente. Procedi come segue.

1. In una cartella di lavoro Excel aperta, premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo, quindi copia il seguente script VBA nella finestra Modulo (Codice).

Codice VBA: Verifica se un file esiste in una cartella specificata e poi eliminalo

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: Nel codice VBA, C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx è il percorso del file che vuoi verificare se esiste. In questo esempio, voglio verificare se un file Excel chiamato “aaa” esiste in una cartella chiamata “save attachments” sul desktop. Puoi modificare il percorso del file e l'estensione del file in base alle tue esigenze.

3. Premi il tasto F5 per eseguire il codice.

4. Se il file esiste, vedrai una finestra di dialogo di Kutools per Excel come mostrato nello screenshot qui sotto. Clicca sul pulsante OK per rimuovere questo file dalla cartella.

Se il file non esiste nella cartella, apparirà un'altra finestra di dialogo di Kutools per Excel per avvisarti.