Cómo determinar si existe un archivo en Excel VBA

Visual Basic para Aplicaciones ( VBA) es un subconjunto de Visual Basic que se utiliza para adaptar los programas de Microsoft Office para satisfacer sus necesidades. Cuando se escribe en un archivo en VBA , es una buena práctica para asegurarse de que el archivo existe en particular antes de intentar escribir en él. Si usted quiere encontrar si existe un archivo en Excel , cree un módulo VBA que hace el truco . Para utilizar esta función , debe tener alguna experiencia previa con la programación VB . Cosas que necesitará
Excel 2007 o Excel 2010
Mostrar más instrucciones
1

Copia el siguiente código: Option Explicit

< p > FileOrDirExists función ( PathName As String ) As Boolean

' Objetivo Macro: la función devuelve tRUE si el archivo especificado

' . existe o carpeta, false si no pathName

' : compatible con Windows unidades asignadas o UNC

': admite rutas Macintosh

' Usos del archivo : Proporcionar ruta completa y el uso de carpetas de extensión

' : Proporcionar ruta de carpeta completa

" Acepta con /sin salida " \\ "(Windows )

" Acepta con /sin salida ":" (Macintosh )

iTEMP Dim As Integer

" No haga caso de errores para permitir la evaluación de errores

On Error Resume Next

iTEMP = GetAttr ( PathName )

" Compruebe si existe error y de respuesta ajustado apropiadamente
< p > Select Case Err.Number

caso es = 0

FileOrDirExists = True

Case Else

FileOrDirExists = False

End Select

' Resume comprobación de errores

On Error Goto 0

End Function

Sub TestItWithWindows ()

' Objetivo Macro: Para probar los FileOrDirExists funcionan con Windows

' Sólo incluido para demostrar la función . No se requiere para el uso normal

sPath dévil como secuencia

'Cambiar el directorio aquí

sPath = "C : \\ prueba.xls "

' ! Prueba si el directorio o archivo existe

Si FileOrDirExists ( sPath ) Entonces

MsgBox sPath y " existe! "

demás

MsgBox sPath y "no existe "

End If End Sub

Sub TestItWithMacintosh ()

' Objetivo Macro: . Para probar la función FileOrDirExists con
Macintosh

' Sólo incluye para demostrar la función . No se requiere para el uso normal

sPath dévil como secuencia

'Cambiar el directorio aquí

sPath = " HardDriveName : Documentos: Test.doc " !

"Prueba si el directorio o archivo existe

Si FileOrDirExists ( sPath ) Entonces

MsgBox sPath y " existe "

demás

MsgBox sPath y " no no existe. "

End If End Sub

2

Abra Excel y presionar" Alt -F11 " para entrar en el Editor de Visual Basic .

3

haga clic en " Insertar" y luego haga clic en " módulos".
4

Pega el código en el panel de la derecha con la tecla " Ctrl " V "

5 Cambio

" text.xls " al nombre del archivo que está buscando.
6

Press "F5 " para ejecutar el procedimiento . el procedimiento devolverá un pop -up ventana que indica si el archivo existe .