Hoe controleert u of een bestand in een map bestaat en verwijdert u het daarna in Excel?
In deze handleiding leert u hoe u een VBA-script gebruikt om te controleren of een bepaald bestand aanwezig is in een opgegeven map en het, indien gevonden, direct uit die map te verwijderen in Excel.
Controleer of een bestand in een map bestaat en verwijder het in Excel met VBA-code
Het volgende VBA-script controleert of een bepaald bestand in een map aanwezig is en verwijdert het zo ja. Volg hiervoor de onderstaande stappen.
1. Druk in een geopend Excel-werkboek op de toetsencombinatie Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module en plak vervolgens het volgende VBA-script in het Module (Code)-venster.
Module-optie„ class="mobile-first" />
VBA-code: Controleer of een bestand in een opgegeven map bestaat en verwijder het
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
Opmerking: In de VBA-code is C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx het pad van het bestand dat u wilt controleren op aanwezigheid. In dit voorbeeld controleren we of een Excel-bestand met de naam „aaa” bestaat in een map genaamd „save attachments” op het bureaublad. U kunt het bestandspad en de bestandsextensie aanpassen aan uw wensen.
3. Druk op de toets F5 om de code uit te voeren.
4. Als het bestand bestaat, verschijnt er een Kutools voor Excel-dialoogvenster zoals hieronder in de schermafbeelding wordt weergegeven. Klik op de knop OK om dit bestand uit de map te verwijderen.
Als het bestand niet in de map aanwezig is, verschijnt er eveneens een Kutools voor Excel-dialoogvenster om u hierop te attenderen.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins