Hur kontrollerar man om en fil finns i en mapp och tar sedan bort den i Excel?

I den här handledningen kommer du att lära dig ett VBA-skript för att kontrollera om en viss fil finns i en angiven mapp, om den gör det, ta sedan bort den från mappen i Excel.

Kontrollera om en fil finns i en mapp och ta sedan bort den i Excel med VBA-kod

Följande VBA-skript hjälper till att kontrollera om en viss fil finns i en mapp och ta bort den om den finns. Vänligen gör enligt följande.

1. I en öppen Excel-arbetsbok trycker du på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna, kopiera sedan följande VBA-skript till Modul (kod) fönster.

VBA-kod: Kontrollera om en fil finns i en angiven mapp och ta sedan bort den

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

Anmärkningar: I VBA-koden, C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx är sökvägen till filen du vill kontrollera om den finns. I det här exemplet vill jag kontrollera om en Excel-fil med namnet "aaa" finns i en mapp som heter "spara bilagor" på skrivbordet. Du kan ändra sökvägen och filtillägget för att möta dina behov.

3. tryck på F5 för att köra koden.

4. Om filen finns får du en Kutools för Excel dialogrutan som visas i skärmdumpen nedan. Klicka på OK knappen för att ta bort den här filen från mappen.

Om filen inte finns i mappen, en annan Kutools för Excel dialogrutan dyker också upp för att varna dig.