Ena od najkoristnejših uporab programa Excel VBA v našem vsakdanjem življenju je, da lahko z njegovo pomočjo preverimo, ali datoteka na našem računalniku obstaja ali ne. V tem članku vam bom pokazal, kako lahko z Excelom preverite, ali datoteka na našem računalniku obstaja ali ne. VBA .

Koda VBA za preverjanje, ali datoteka obstaja ali ne (hitri prikaz)

 Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI\Book1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "Datoteka ne obstaja." Else MsgBox "Datoteka obstaja." End If End Sub 

Prenesi delovni zvezek za prakso

Prenesite ta delovni zvezek za vadbo, ki ga lahko uporabljate med branjem tega članka.

Pregled kode VBA za preverjanje, ali datoteka obstaja ali ne (analiza po korakih)

Zato brez nadaljnjega preidimo na našo današnjo glavno razpravo. VBA kodo korak za korakom, da bi se naučili, kako preveriti, ali datoteka obstaja ali ne v naših računalnikih.

⧪ Korak 1: Vstavljanje potrebnih vhodnih podatkov

Na samem začetku kode moramo vanjo vstaviti potrebne vhodne podatke. V tej kodi je potreben samo en vhodni podatek, in sicer ime datoteke, ki jo iščemo. Vstavite celotno ime datoteke (skupaj s pripadajočim imenikom).

 Ime datoteke = "C:\ExcelWIKI\Book1.xlsm" 

⧪ Korak 2: Izvleček imena datoteke s funkcijo VBA Dir

Nato bomo uporabili majhen trik. VBA Funkcija Dir za izpis imena datoteke. Če taka datoteka ne obstaja, se Funkcija Dir vrne ničelni niz.

 Ime_datoteke = Dir(Ime_datoteke) 

⧪ Korak 3: Preverjanje, ali datoteka obstaja, z uporabo If-Block

To je najpomembnejši korak. Že prej smo povedali, da če nobena datoteka z danim imenom ne obstaja, funkcija Dir vrne ničelni niz. To lastnost bomo uporabili znotraj Če je blok za preverjanje, ali datoteka obstaja ali ne.

 If Ime_datoteke = "" Then MsgBox "Datoteka ne obstaja." Else MsgBox "Datoteka obstaja." End If 

Tako je celoten VBA koda bo:

⧭ Koda VBA:

 Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI\Book1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "Datoteka ne obstaja." Else MsgBox "Datoteka obstaja." End If End Sub 

⧭ Izhod:

Zaženite kodo. V mojem računalniku se prikaže okno s sporočilom, "Datoteka obstaja" ker dejansko obstaja v mojem računalniku.

V vašem računalniku se lahko izpis razlikuje glede na to, ali datoteka obstaja ali ne.

Preberite več: Excel VBA: Preverite, ali list obstaja (2 preprosti metodi)

Razvijanje makra za preverjanje obsega datotek, ki obstajajo ali ne, z uporabo programa Excel VBA

Tu imamo nabor podatkov v delovnem listu programa Excel, ki vsebuje imena nekaterih datotek skupaj z imeniki v območju B4: B8 .

Naš cilj je razviti program Macro, ki bo napisal Obstaja / Ne obstaja poleg vsakega od njih, potem ko preverite, ali obstajajo v računalniku ali ne.

⧪ Korak 1: Odpiranje okna VBA

Pritisnite ALT + F11 na tipkovnici, da odprete Visual Basic okno.

⧪ Korak 2: Vstavljanje novega modula

Pojdi na Vstavljanje> Modul v orodni vrstici. Kliknite na Modul . Nov modul z imenom Modul1 (ali kaj drugega, odvisno od vaše pretekle zgodovine).

⧪ Korak 3: Vnos kode VBA

To je najpomembnejši korak. Vstavite naslednje VBA koda v modulu.

⧭ Koda VBA:

 Sub Check_If_a_Range_of_File_Exist() Set Rng = ActiveSheet.Range("B4:B8") For i = 1 To Rng.Rows.Count File_Name = Dir(Rng.Cells(i, 1)) If File_Name = "" Then Rng.Cells(i, 2) = "Ne obstaja" Else Rng.Cells(i, 2) = "Obstaja" End If Next i End Sub 

⧪ 5. korak: zagon kode

Kliknite na Run Sub / UserForm orodje v zgornji orodni vrstici.

Koda se bo zagnala. In dobili boste "Obstaja" za obstoječe datoteke in "Ne obstaja" za datoteke, ki ne obstajajo.

Preberite več: Kako preveriti, ali vrednost obstaja v območju v Excelu (8 načinov)

Zaključek

Zato je to postopek za razvoj Makro za pošiljanje e-poštnega sporočila iz programa Excel s priponko. Imate kakšno vprašanje? Vprašajte nas. In ne pozabite obiskati našega spletnega mesta ExcelWIKI za več objav in posodobitev.