Hogyan ellenőrizhető, hogy létezik-e fájl vagy mappa a számítógépen az Excel VBA segítségével?

A mai Office automatizálási oktatóanyag arra összpontosít, hogy megtanulja, hogyan ellenőrizheti, hogy egy fájl létezik-e a számítógép valamelyik könyvtárában.

Készítmény

Ha még nem ismeri a kódolást, győződjön meg arról, hogy a Microsoft Office Excel fejlesztői lapja engedélyezve van, és ismeri néhány alapvető Excel VBA-t .

Annak ellenőrzése, hogy létezik-e fájl az Excel VBA segítségével

A következő kód a beviteli mezőket használja fel a fájl elérési útjának és magának a fájlnévnek a rögzítéséhez a felhasználótól.

Ezután a Dir metódust használja annak ellenőrzésére, hogy a fájl elérési útja valóban létezik-e.

Végül egy üzenetdobozt jelenít meg a felhasználónak az ellenőrzés eredményével.

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

Ellenőrizze, hogy létezik-e mappa

Hasonló módon ellenőrizheti, hogy létezik-e egy adott mappa az operációs rendszerben. Itt is kihasználjuk a Dir metódust, de a vbDirectory paraméterrel.

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

A kód használata

• Nyissa meg a Microsoft Excelt, és keresse meg a munkafüzetet.
• Nyomja meg a Developer gombot, majd a Visual Basic gombot.
• Másolja ki és illessze be a fenti kódot szubrutinként a VBA-modul egyik lapjára.
• Futtassa (F5) a kódot.
• Mentse el a munkafüzetet.

Lehetséges bővítések

A fenti kazántábla kód a következő felhasználási esetekre kiterjeszthető:

• Hozzon létre egy mappát/fájlt, ha még nem létezik.
• Törölje a mappa egy fájlját, feltéve, hogy azok megtalálhatók az operációs rendszer fájlkönyvtárában.
• Fájlok/mappák keresése helyettesítő karakterekkel.