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.

Leave a Comment

7 moduri de a remedia eroarea Blue Screen of Death (BSOD) în Windows 10

7 moduri de a remedia eroarea Blue Screen of Death (BSOD) în Windows 10

Luptă cu eroarea Blue Screen of Death (BSOD) în Windows 10. Obțineți remedieri de depanare pentru a rezolva această eroare cu ușurință.

Cum se creează etichete în aplicația Gmail? Iată tot ce trebuie să știi

Cum se creează etichete în aplicația Gmail? Iată tot ce trebuie să știi

Dacă doriți să creați etichete în aplicația Gmail, acest ghid vă oferă soluția. Aflati cum sa faceti acest lucru atât pe telefon, cât și pe desktop.

Cum să adăugați chenar la o pagină în Microsoft Word

Cum să adăugați chenar la o pagină în Microsoft Word

Îmbunătățiți-vă documentele cu un chenar de pagină personalizat în Word. Află cum să adăugați și să personalizezi chenarul.

Cum să remediați Xbox nu se conectează la Wi-Fi? [10 soluții rapide]

Cum să remediați Xbox nu se conectează la Wi-Fi? [10 soluții rapide]

Dacă Xbox-ul dvs. nu se va conecta la Wi-Fi, urmăriți soluțiile furnizate în acest articol pentru a vă conecta Xbox și a continua să jucați.

REPARAT: PS4 se oprește de la sine Problemă aleatorie [Remediere rapidă]

REPARAT: PS4 se oprește de la sine Problemă aleatorie [Remediere rapidă]

Dacă PS4 se oprește de la sine, urmați soluțiile noastre eficiente pentru a remedia problema rapid și ușor.

Remediați „Microfonul este dezactivat de setările sistemului Google Meet” [6 trucuri]

Remediați „Microfonul este dezactivat de setările sistemului Google Meet” [6 trucuri]

Aflați cele mai bune soluții pentru a remedia eroarea „microfonul este dezactivat de setările sistemului” pe Google Meet, Zoom și Hangouts.

Cum să scrieți fracții în Google Docs

Cum să scrieți fracții în Google Docs

Descoperiți modalitățile simple și eficiente de a scrie fracții în Google Docs folosind caractere speciale și echivalente automate.

7 Remedieri rapide pentru eroarea ReCaptcha pentru proprietarul site-ului: Tip cheie nevalid

7 Remedieri rapide pentru eroarea ReCaptcha pentru proprietarul site-ului: Tip cheie nevalid

Remedierea eroarei Google ReCaptcha „Eroare pentru proprietarul site-ului: tip cheie invalid” prin soluții eficiente și actualizate.

Cum să calibrați culoarea monitorului în Windows 10

Cum să calibrați culoarea monitorului în Windows 10

Setările de calibrare a culorilor încorporate în Windows 10 vă ajută să îmbunătățiți acuratețea culorii monitoarelor dvs. Acest ghid detaliat vă arată cum să găsiți și să configurați aceste setări.

Conectarea la PlayStation Network a eșuat [FIXAT]

Conectarea la PlayStation Network a eșuat [FIXAT]

Conectarea la rețeaua PlayStation a eșuat atunci când vă conectați la PS4, apoi urmați remedieri precum actualizarea software-ului sistemului PSN, modificarea setărilor DNS...