Az Excel egyik legelőnyösebb felhasználási módja VBA a mindennapi életünkben az, hogy ellenőrizhetjük, hogy egy fájl létezik-e a gépünkön vagy sem, ha azt használjuk. Ebben a cikkben megmutatom, hogyan ellenőrizhetjük, hogy egy fájl létezik-e vagy sem a számítógépünkön az Excel segítségével. VBA .

VBA-kód annak ellenőrzésére, hogy létezik-e egy fájl vagy sem (gyorsnézet)

 Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI\Book1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "A fájl nem létezik." Else MsgBox "A fájl létezik." End If End Sub 

Gyakorlati munkafüzet letöltése

Töltse le ezt a gyakorlati munkafüzetet, hogy gyakorolhasson, miközben ezt a cikket olvassa.

A VBA-kód áttekintése a fájl létezésének ellenőrzéséhez (lépésről lépésre történő elemzés)

Szóval, további késlekedés nélkül térjünk rá mai fő témánkra. Lebontjuk a VBA kódot lépésről lépésre, hogy megtanuljuk, hogyan ellenőrizhetjük, hogy egy fájl létezik-e a számítógépünkön vagy sem.

⧪ 1. lépés: A szükséges bemenet beillesztése

A kód legelején be kell illesztenünk a szükséges bemenetet. Ebben a kódban csak egy bemenetre van szükség, és ez a keresett fájl neve. Illesszük be a teljes fájlnevet (a hozzá tartozó könyvtárral együtt).

 File_Name = "C:\ExcelWIKI\Book1.xlsm" 

⧪ 2. lépés: A fájlnév kivonása a VBA Dir funkciójával

Ezután egy apró trükköt fogunk alkalmazni. Használjuk a VBA Dir funkció a fájl nevének kinyeréséhez. Ha nem létezik ilyen fájl, akkor a Dir funkció egy null karakterláncot fog visszaadni.

 File_Name = Dir(File_Name) 

⧪ 3. lépés: A fájl létezésének ellenőrzése If-blokk segítségével

Ez a legfontosabb lépés. Korábban már elmondtuk, hogy ha a megadott névvel nem létezik fájl, akkor a Dir függvény egy null sztringet ad vissza. Ezt a tulajdonságot fogjuk használni egy If-block ellenőrizni, hogy a fájl létezik-e vagy sem.

 If File_Name = "" Then MsgBox "A fájl nem létezik." Else MsgBox "A fájl létezik." End If 

Tehát a teljes VBA kód lesz:

⧭ VBA-kód:

 Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI\Book1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "A fájl nem létezik." Else MsgBox "A fájl létezik." End If End Sub 

⧭ Kimenet:

Futtassa a kódot. A számítógépemen megjelenik egy üzenőmező, "A fájl létezik" , mert valóban létezik a gépemen.

Az Ön gépén a kimenet eltérő lehet attól függően, hogy a fájl létezik-e vagy sem.

Bővebben: Excel VBA: Ellenőrizze, hogy létezik-e egy lap (2 egyszerű módszer)

Makró fejlesztése a fájlok tartományának ellenőrzésére az Excel VBA használatával vagy nem Excel VBA használatával

Itt van egy adathalmazunk egy Excel munkalapon, amely tartalmazza néhány fájl nevét és a könyvtárakat a következő tartományban B4:B8 .

A célunk egy olyan makró kifejlesztése, amely megírja a Létezik / Nem létezik mindegyikük mellett, miután ellenőrizte, hogy léteznek-e a számítógépen vagy sem.

⧪ 1. lépés: A VBA ablak megnyitása

Sajtó ALT + F11 a billentyűzeten a Visual Basic ablak.

⧪ 2. lépés: Új modul beillesztése

Menjen a Beszúrás> modul az eszköztáron. Kattintson a Modul Egy új modul, a Modul1 (vagy bármi más, a múltjától függően) fog megnyílni.

⧪ 3. lépés: A VBA kód beillesztése

Ez a legfontosabb lépés. Illessze be a következőket VBA kód a modulban.

⧭ VBA-kód:

 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) = "Doesn't Exist" Else Rng.Cells(i, 2) = "Exists" End If Next i End Sub 

⧪ 5. lépés: A kód futtatása

Kattintson a Run Sub / UserForm futtatása eszközt a fenti eszköztárból.

A kód futni fog. És azt kapod, hogy "Létezik" a létező fájlokat, és "Nem létezik" a nem létező fájlokat.

Bővebben: Hogyan ellenőrizze, hogy az érték létezik-e az Excel tartományban (8 mód)

Következtetés

Ezért ez az a folyamat, amelynek során egy Makró hogy Excelből küldjön e-mailt egy csatolmánnyal. Kérdése van? Kérdezzen bátran. És ne felejtse el meglátogatni honlapunkat. ExcelWIKI további posztokért és frissítésekért.