Hur kontrollerar jag om en fil eller mapp finns i din dator med Excel VBA?

Dagens handledning för Office-automatisering är fokuserad på att lära sig hur man verifierar att en fil finns i en av dina datorkataloger.

Förberedelse

Om du är lite ny på kodning, se till att Microsoft Office Excel-utvecklingsfliken är aktiverad och att du är bekant med några grundläggande Excel VBA .

Kontrollera om en fil finns med Excel VBA

Följande kod använder inmatningsrutor för att fånga sökvägen till filen såväl som själva filnamnet från användaren.

Sedan använder den Dir -metoden för att verifiera om filsökvägen verkligen finns.

Slutligen visar den en meddelanderuta för användaren med kontrollresultatet.

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

Kontrollera om det finns en mapp

På ganska liknande sätt kan du kontrollera om en specifik mapp finns i ditt operativsystem. Även här använder vi Dir - metoden, men med parametern 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

Använda koden

• Öppna Microsoft Excel och navigera till din arbetsbok.
• Tryck på Utvecklare och sedan på Visual Basic.
• Kopiera och klistra in koden ovanifrån som en subrutin i antingen ett specifikt ark i din VBA-modul.
• Kör (F5) koden.
• Spara din arbetsbok.

Möjliga förlängningar

Pannplåtskoden ovan och utökas för följande användningsfall:

• Skapa en mapp/fil om den inte redan finns.
• Ta bort en fil i mappen förutsatt att de finns i ditt operativsystems filkatalog.
• Sök efter filer/mappar med ett jokertecken.