¿Cómo verificar si existe un archivo o carpeta en su computadora con Excel VBA?

El tutorial de automatización de Office de hoy se centra en aprender cómo verificar que un archivo existe en uno de los directorios de su computadora.

Preparación

Si es un poco nuevo en la codificación, asegúrese de que la pestaña de desarrollo de Microsoft Office Excel esté habilitada y que esté familiarizado con algunos VBA básicos de Excel .

Comprobando si existe un archivo con Excel VBA

El siguiente código aprovecha los cuadros de entrada para capturar la ruta al archivo, así como el nombre del archivo del usuario.

Luego aprovecha el método Dir para verificar si la ruta del archivo realmente existe.

Por último, muestra un cuadro de mensaje al usuario con el resultado de la verificación.

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

Comprobar si existe una carpeta

De manera bastante similar, puede verificar si existe una carpeta específica en su sistema operativo. También aquí aprovechamos el método Dir , pero con el parámetro 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

Usando el código

• Abra Microsoft Excel y navegue hasta su libro de trabajo.
• Presiona Desarrollador y luego presiona Visual Basic.
• Copie y pegue el código de arriba como una subrutina en una hoja específica de su módulo VBA.
• Ejecute (F5) el código.
• Guarde su libro de trabajo.

Posibles extensiones

El código de la placa de la caldera anterior se puede ampliar para los siguientes casos de uso:

• Cree una carpeta/archivo si aún no existe.
• Elimine un archivo de una carpeta siempre que estén presentes en el directorio de archivos de su sistema operativo.
• Busque archivos/carpetas usando un comodín.