Cum să verificați dacă un fișier sau un folder există în computerul dvs. cu Excel VBA?

Tutorialul de automatizare Office de astăzi este axat pe învățarea cum să verificați dacă un fișier există într-unul dintre directoarele computerului dvs.

Pregătirea

Dacă sunteți oarecum nou în codificare, asigurați-vă că fila de dezvoltare Microsoft Office Excel este activată și că sunteți familiarizat cu unele VBA de bază Excel .

Verificarea dacă un fișier există cu Excel VBA

Următorul cod folosește casetele de intrare pentru a captura calea către fișier, precum și numele fișierului însuși de la utilizator.

Apoi folosește metoda Dir pentru a verifica dacă calea fișierului există într-adevăr.

În cele din urmă, afișează utilizatorului o casetă de mesaj cu rezultatul verificării.

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

Verificați dacă există un folder

Într-un mod destul de similar, puteți verifica dacă un anumit folder există în sistemul dvs. de operare. Tot aici folosim metoda Dir , dar cu parametrul 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

Folosind Codul

• Deschideți Microsoft Excel și navigați la registrul de lucru.
• Apăsați Developer și apoi apăsați pe Visual Basic.
• Copiați și inserați codul de mai sus ca subrutină fie într-o foaie specifică a modulului VBA.
• Rulați (F5) codul.
• Salvați registrul de lucru.

Posibile extensii

Codul plăcii cazanului de mai sus poate fi extins pentru următoarele cazuri de utilizare:

• Creați un folder / fișier dacă nu există deja.
• Ștergeți un fișier dintr-un folder, cu condiția ca acestea să fie prezente în directorul de fișiere al sistemului de operare.
• Căutați fișiere/foldere folosind un metacar.