Hvordan kontrollerer man, om der findes en fil eller mappe på din computer med Excel VBA?

Dagens Office-automatiseringsvejledning er fokuseret på at lære, hvordan du verificerer, at en fil findes i en af ​​dine computermapper.

Forberedelse

Hvis du er noget ny til kodning, skal du sikre dig, at Microsoft Office Excel-udviklingsfanen er aktiveret, og at du er fortrolig med nogle grundlæggende Excel VBA .

Kontrollerer, om der findes en fil med Excel VBA

Følgende kode udnytter inputbokse til at fange stien til filen såvel som selve filnavnet fra brugeren.

Derefter udnytter den Dir -metoden til at kontrollere, om filstien faktisk eksisterer.

Til sidst viser den en beskedboks til brugeren med kontrolresultatet.

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

Tjek om der findes en mappe

På ganske lignende måde kan du kontrollere, om der findes en bestemt mappe i dit operativsystem. Også her udnytter vi Dir - metoden, men med parameteren 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

Brug af koden

• Åbn Microsoft Excel, og naviger til din projektmappe.
• Tryk på Udvikler, og tryk derefter på Visual Basic.
• Kopiér og indsæt koden fra oven som en underrutine i enten et specifikt ark på dit VBA-modul.
• Kør (F5) koden.
• Gem din projektmappe.

Mulige udvidelser

Kedelpladekoden ovenfor kan udvides til følgende anvendelsestilfælde:

• Opret en mappe/fil, hvis den ikke allerede eksisterer.
• Slet en fil i mappen, forudsat at de findes i dit operativsystems filmappe.
• Søg efter filer/mapper ved hjælp af et jokertegn.