¿Cómo comprobar si existe un archivo en una carpeta específica?
Supongamos que tiene una carpeta que contiene varios archivos y ahora desea identificar si existe un archivo específico en esta carpeta desde Excel. En este artículo, presentaré un método rápido para que verifique si un archivo existe en una carpeta específica en detalles a través de Excel.
Verifique si existe un archivo en una carpeta específica con código VBA
Verifique si existe un archivo en una carpeta específica con código VBA
Para verificar si un archivo existe en una carpeta específica o no en la hoja de cálculo de Excel, puede aplicar el siguiente código VBA, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.
Código de VBA: compruebe si existe un archivo 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 exist", vbInformation, "Kutools for Excel"
End If
Application.ScreenUpdating = False
End Sub
Nota: En el código anterior, debe cambiar la ruta y el nombre del archivo C: \ Users \ DT168 \ Desktop \ Test folder \ Book2.xlsx " a su necesidad.
3. Después de pegar el código, presione F5 clave para ejecutar este código:
(1.) Si el archivo existe, obtendrá la siguiente captura de pantalla:
(2.) Si el archivo no existe, recibirá la siguiente advertencia:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!