Hvordan sjekke om en fil eller mappe finnes på datamaskinen din med Excel VBA?

Dagens Office-automatiseringsveiledning er fokusert på å lære hvordan du kan bekrefte at en fil finnes i en av datamaskinkatalogene dine.

Forberedelse

Hvis du er noe ny på koding, sørg for at Microsoft Office Excel-utviklingsfanen er aktivert og at du er kjent med noen grunnleggende Excel VBA .

Sjekker om det finnes en fil med Excel VBA

Følgende kode utnytter inndatabokser for å fange banen til filen så vel som selve filnavnet fra brukeren.

Deretter bruker den Dir - metoden for å bekrefte om filbanen faktisk eksisterer.

Til slutt viser den en meldingsboks til brukeren med sjekkresultatet.

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

Sjekk om det finnes en mappe

På ganske lik måte kan du sjekke om det finnes en bestemt mappe i operativsystemet ditt. Også her bruker 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

Bruke koden

• Åpne Microsoft Excel og naviger til arbeidsboken din.
• Trykk på Utvikler og deretter Visual Basic.
• Kopier og lim inn koden ovenfra som en subrutine i enten et spesifikt ark i VBA-modulen.
• Kjør (F5) koden.
• Lagre arbeidsboken din.

Mulige utvidelser

Kjeleplatens kode ovenfor kan utvides for følgende brukstilfeller:

• Opprett en mappe/fil hvis den ikke allerede eksisterer.
• Slett en fil med mappe forutsatt at de er til stede i operativsystemets filkatalog.
• Søk etter filer/mapper ved hjelp av et jokertegn.