Kako preveriti, ali datoteka obstaja v mapi in jo izbrisati v Excelu?

V tej vadnici se boste naučili skripta VBA za preverjanje, ali določena datoteka obstaja v določeni mapi, če obstaja, jo nato izbrišite iz mape v Excelu.

Preverite, ali datoteka obstaja v mapi, nato pa jo izbrišite v Excelu s kodo VBA

Naslednji skript VBA pomaga preveriti, ali določena datoteka obstaja v mapi, in jo izbrisati, če obstaja. Prosimo, naredite naslednje.

1. V odprtem Excelovem delovnem zvezku pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli, nato kopirajte naslednji skript VBA v Modul (koda) okno.

Koda VBA: Preverite, ali datoteka obstaja v določeni mapi, nato pa jo izbrišite

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

Opombe: V kodi VBA, C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx je pot do datoteke, za katero želite preveriti, ali obstaja. V tem primeru želim preveriti, ali Excelova datoteka z imenom "aaa" obstaja v mapi z imenom "shranjevanje prilog« na namizju. Spremenite lahko pot datoteke in pripono datoteke, da ustrezata vašim potrebam.

3. Pritisnite F5 tipko za zagon kode.

4. Če datoteka obstaja, boste dobili a Kutools za Excel pogovorno okno, kot je prikazano na spodnjem posnetku zaslona. Kliknite na OK gumb za odstranitev te datoteke iz mape.

Če datoteka ne obstaja v mapi, drugo Kutools za Excel se bo pojavilo tudi pogovorno okno, ki vas bo opozorilo.