In Microsoft Excel kunnen we met VBA-code controleren of het bestand op een specifieke locatie bestaat. De macro geeft de status weer in de vorm van een berichtvenster. In dit artikel zullen we bepalen of de status van een specifiek bestand bestaat of niet, met behulp van VBA-code. We kunnen de Dir-functie gebruiken om te controleren of het bestand op locatie bestaat met behulp van Excel VBA.
Met dit programma kunnen we controleren of er al een bestand op dezelfde locatie bestaat. Zodat we het oude bestand kunnen verwijderen of hernoemen.
Vraag: Wanneer we een macro maken om de taak te automatiseren, slaan we het uitvoerbestand over het algemeen op een locatie op. Ik zou graag een macro willen hebben om te verifiëren en in ruil daarvoor te laten zien dat het bestand al dan niet beschikbaar is op het specifieke pad.
Ter illustratie van dit voorbeeld slaan we het bestand “Sample.xlsx” op in het pad "D:\FolderName\Sample.xlsx"
Om te bepalen of de werkmap bestaat, moeten we de onderstaande stappen volgen om de VB-editor te starten:
- Klik op het tabblad Ontwikkelaar
- Selecteer in de codegroep Visual Basic
- Klik op Invoegen en vervolgens op Module
- Hiermee wordt een nieuwe module gemaakt
- Voer de volgende code in de standaardmodule in:
Sub FileExists() Dim FilePath As String Dim TestStr As String FilePath = "D:\FolderName\Sample.xlsx" TestStr = "" Bij fout hervatten volgende TestStr = Dir(FilePath) Bij fout Ga naar 0 If TestStr = "" Dan MsgBox " Bestand bestaat niet" Else Workbooks.Open "D:\FolderName\Sample.xlsx" End If End Sub
- Nu is de macro helemaal klaar om te worden uitgevoerd, we zullen de sneltoets F5 gebruiken en het "Voorbeeld"-bestand wordt geopend
- Als het bestand niet beschikbaar is op het vooraf gedefinieerde pad, wordt het volgende berichtvenster weergegeven:
Conclusie: Op deze manier kunnen we gemakkelijk herkennen of een bepaald bestand al dan niet op een specifiek pad bestaat met behulp van VBA-code.
Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.
We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons op de e-mailsite