Com comprovar si hi ha un fitxer o una carpeta al vostre ordinador amb Excel VBA?

El tutorial d'ofimàtica d'avui se centra a aprendre a verificar que existeix un fitxer en un dels directoris de l'ordinador.

Preparació

Si sou una mica nou en la codificació, assegureu-vos que la pestanya de desenvolupament de Microsoft Office Excel estigui activada i que esteu familiaritzat amb alguns VBA bàsics d'Excel .

Comprovar si existeix un fitxer amb Excel VBA

El codi següent aprofita els quadres d'entrada per capturar la ruta al fitxer així com el propi nom del fitxer de l'usuari.

A continuació, aprofita el mètode Dir per verificar si realment existeix la ruta del fitxer.

Finalment, mostra un quadre de missatge a l'usuari amb el resultat de la comprovació.

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

Comproveu si existeix una carpeta

D'una manera força semblant, podeu comprovar si hi ha una carpeta específica al vostre sistema operatiu. També aquí aprofitem el mètode Dir , però amb el paràmetre 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

Ús del Codi

• Obriu Microsoft Excel i navegueu al vostre llibre de treball.
• Premeu Desenvolupador i després premeu Visual Basic.
• Copieu i enganxeu el codi de dalt com a subrutina en un full específic del vostre mòdul VBA.
• Executeu (F5) el codi.
• Guarda el teu llibre de treball.

Possibles ampliacions

El codi de la placa de caldera anterior s'ampliarà per als casos d'ús següents:

• Creeu una carpeta/fitxer si encara no existeix.
• Suprimiu un fitxer de carpeta sempre que estigui present al directori de fitxers del vostre sistema operatiu.
• Cerca fitxers/carpetes amb un comodí.