Hoe controleer ik of een bestand in een map staat en verwijder het vervolgens in Excel?
In deze zelfstudie leert u een VBA-script om te controleren of een bepaald bestand in een opgegeven map bestaat, en als dit het geval is, verwijdert u het uit de map in Excel.
Controleer of er een bestand in een map staat en verwijder het vervolgens in Excel met VBA-code
Het volgende VBA-script helpt om te controleren of een bepaald bestand in een map bestaat en het te verwijderen als het bestaat. Ga als volgt te werk.
1. Druk in een geopende Excel-werkmap op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module, kopieer vervolgens het volgende VBA-script naar het Module (code) venster.
VBA-code: controleer of een bestand in een opgegeven map bestaat en verwijder het vervolgens
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
Note: In de VBA-code, C:\Users\Win10x64Test\Desktop\bijlagen opslaan\aaa.xlsx is het pad van het bestand waarvan u wilt controleren of het bestaat. In dit voorbeeld wil ik controleren of een Excel-bestand met de naam "aaa" bestaat in een map met de naam "bijlagen opslaan" op de desktop. U kunt het bestandspad en de bestandsextensie wijzigen om aan uw behoeften te voldoen.
3. druk de F5 sleutel om de code uit te voeren.
4. Als het bestand bestaat, krijgt u een Kutools for Excel dialoogvenster zoals weergegeven in de onderstaande schermafbeelding. Klik op de OK knop om dit bestand uit de map te verwijderen.
Als het bestand niet in de map bestaat, wordt een ander Kutools for Excel dialoogvenster verschijnt ook om u te waarschuwen.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!