Hoe controleer je of er een bestand of map op je computer staat met Excel VBA?

De zelfstudie over Office-automatisering van vandaag is gericht op het leren controleren of een bestand in een van uw computermappen staat.

Voorbereiding

Als coderen een beetje nieuw voor u is, zorg er dan voor dat het tabblad Microsoft Office Excel-ontwikkeling is ingeschakeld en dat u bekend bent met een aantal basis Excel VBA .

Controleren of een bestand bestaat met Excel VBA

De volgende code maakt gebruik van invoervakken om het pad naar het bestand en de bestandsnaam zelf van de gebruiker vast te leggen.

Vervolgens maakt het gebruik van de Dir - methode om te controleren of het bestandspad inderdaad bestaat.

Ten slotte toont het een berichtvenster aan de gebruiker met het controleresultaat.

Sub Check_file_exists()

Dim NameDir As String
Dim NameFile As String

'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")

'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
    MsgBox ("File doesn't exist")

    Else
    
    MsgBox ("File exists")
    End If
End Sub

Controleer of er een map bestaat

Op een vergelijkbare manier kunt u controleren of een specifieke map in uw besturingssysteem aanwezig is. Ook hier maken we gebruik van de Dir - methode, maar met de parameter vbDirectory .

Sub Check_folder_exists()

Dim NameDir As String

NameDir = InputBox("Enter file directory")


If (Dir(NameDir, vbDirectory)) = "" Then
    MsgBox ("Folder doesn't exist")

    Else
    
    MsgBox ("Folder exists")
    End If
End Sub

De code gebruiken

• Open Microsoft Excel en navigeer naar uw werkmap.
• Druk op Ontwikkelaar en vervolgens op Visual Basic.
• Kopieer en plak de code van bovenaf als een subroutine in een specifiek blad van uw VBA-module.
• Voer (F5) de code uit.
• Bewaar je werkmap.

Mogelijke uitbreidingen

De bovenstaande ketelplaatcode kan worden uitgebreid voor de volgende gebruikssituaties:

• Maak een map / bestand aan als deze nog niet bestaat.
• Verwijder een bestand of map op voorwaarde dat ze aanwezig zijn in de bestandsmap van uw besturingssysteem.
• Zoek naar bestanden/mappen met een jokerteken.