Hvordan kontrollerer man, om en fil findes i en mappe, og sletter man den i Excel?
I denne tutorial lærer du et VBA-script for at kontrollere, om en bestemt fil findes i en bestemt mappe, hvis den gør, så slet den fra mappen i Excel.
Kontroller, om en fil findes i en mappe, og slet den i Excel med VBA-kode
Følgende VBA-script hjælper med at kontrollere, om en bestemt fil findes i en mappe, og slette den, hvis den findes. Gør venligst som følger.
1. I en åben Excel-projektmappe skal du trykke på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, og kopier derefter følgende VBA-script ind i Modul (kode) vindue.
VBA-kode: Kontroller, om en fil findes i en bestemt mappe, og slet 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
Bemærk: I VBA-koden, C:\Users\Win10x64Test\Desktop\gem vedhæftede filer\aaa.xlsx er stien til den fil, du vil kontrollere, om den findes. I dette eksempel vil jeg kontrollere, om en Excel-fil med navnet "aaa" findes i en mappe med navnet "gem vedhæftede filer” på skrivebordet. Du kan ændre filstien og filtypenavnet for at opfylde dine behov.
3. Tryk på F5 nøgle for at køre koden.
4. Hvis filen findes, får du en Kutools til Excel dialogboks som vist på skærmbilledet nedenfor. Klik på OK knappen for at fjerne denne fil fra mappen.
Hvis filen ikke findes i mappen, en anden Kutools til Excel dialogboksen vil også dukke op for at advare dig.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!