Hogyan ellenőrizhető, hogy létezik-e fájl egy adott mappában?
Tegyük fel, hogy van egy mappája, amely több fájlt tartalmaz, és most meg akarja állapítani, hogy létezik-e egy adott fájl ebben a mappában az Excelből. Ebben a cikkben bemutatok egy gyors módszert, amellyel ellenőrizheti, hogy van-e fájl egy adott mappában, részletesen az Excel segítségével.
Ellenőrizze, hogy létezik-e fájl egy adott VBA kódú mappában
Ellenőrizze, hogy létezik-e fájl egy adott VBA kódú mappában
Annak ellenőrzéséhez, hogy létezik-e fájl egy adott mappában, vagy sem az Excel munkalapon, alkalmazhatja a következő VBA kódot, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.
VBA kód: Ellenőrizze, hogy létezik-e fájl egy adott mappában:
Sub Test_File_Exist_With_Dir()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim FilePath As String
FilePath = ""
On Error Resume Next
FilePath = Dir("C:\Users\DT168\Desktop\Test folder\Book2.xlsx")
On Error GoTo 0
If FilePath = "" Then
MsgBox "File doesn't exist", vbInformation, "Kutools for Excel"
Else
MsgBox "File exist", vbInformation, "Kutools for Excel"
End If
Application.ScreenUpdating = False
End Sub
Jegyzet: A fenti kódban meg kell változtatnia a fájl elérési útját és nevét C: \ Users \ DT168 \ Desktop \ Test mappa \ Book2.xlsx " igényének.
3. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához:
(1.) Ha a fájl létezik, akkor a következő képernyőképet kapja:
(2.) Ha a fájl nem létezik, a következő figyelmeztetést kapja:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!