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.