¿Cómo verificar si un archivo existe en una carpeta específica?

Si tienes una carpeta con varios archivos y necesitas determinar si un archivo específico existe, Excel puede ayudarte a automatizar esta tarea. Este artículo proporciona un método VBA sencillo para verificar si un archivo existe en una carpeta dada.

Verificar si un archivo existe en una carpeta específica con código VBA

Verificar si un archivo existe en una carpeta específica con código VBA

Para verificar si un archivo existe o no en una carpeta específica en la hoja de cálculo de Excel, puedes aplicar el siguiente código VBA, por favor sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Verifica si un archivo existe en una carpeta específica:

Sub Test_File_Exist_With_Dir()
'Updateby Extendoffice
    Application.ScreenUpdating = False
    Dim FilePath As String
    FilePath = ""
    On Error Resume Next
    FilePath = Dir("C:\Users\DT168\Desktop\Test folder\Book2.xlsx")
    On Error GoTo 0
    If FilePath = "" Then
        MsgBox "File doesn't exist", vbInformation, "Kutools for Excel"
    Else
        MsgBox "File exists", vbInformation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = False
End Sub

Nota: En el código anterior, debes cambiar la ruta y el nombre del archivo C:\Users\DT168\Desktop\Test folder\Book2.xlsx" según tus necesidades.

3. Después de pegar el código, presiona la tecla F5 para ejecutar este código:

(1.) Si el archivo existe, obtendrás la siguiente captura de pantalla:

(2.) Si el archivo no existe, recibirás la siguiente advertencia: