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.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
