Kako provjeriti postoji li datoteka ili mapa na vašem računalu pomoću Excel VBA?

Današnji vodič za automatizaciju sustava Office usmjeren je na učenje kako provjeriti postoji li datoteka u jednom od direktorija vašeg računala.

Priprema

Ako ste donekle novi u kodiranju, provjerite je li kartica za razvoj programa Microsoft Office Excel omogućena i jeste li upoznati s nekim osnovnim Excel VBA .

Provjera postojanja datoteke pomoću Excel VBA

Sljedeći kod koristi okvire za unos kako bi uhvatio put do datoteke kao i sam naziv datoteke od korisnika.

Zatim koristi metodu Dir kako bi provjerio postoji li put datoteke doista.

Na kraju, korisniku prikazuje okvir s porukom s rezultatom provjere.

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

Provjerite postoji li mapa

Na sličan način možete provjeriti postoji li određena mapa u vašem operativnom sustavu. Također ovdje koristimo metodu Dir , ali s parametrom 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

Korištenje Koda

• Otvorite Microsoft Excel i idite do svoje radne knjige.
• Pritisnite Developer, a zatim pritisnite Visual Basic.
• Kopirajte i zalijepite kod odozgo kao potprogram u bilo koji određeni list vašeg VBA modula.
• Pokrenite (F5) kod.
• Spremite svoju radnu bilježnicu.

Moguća proširenja

Šifra kotlovske ploče iznad može se proširiti za sljedeće slučajeve upotrebe:

• Napravite mapu/datoteku ako već ne postoji.
• Izbrišite datoteku mape pod uvjetom da je prisutna u direktoriju datoteka vašeg operativnog sustava.
• Tražite datoteke/mape pomoću zamjenskog znaka.