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 desea conocer si existe un archivo en Excel, construir un módulo de VBA que hace el truco. Para utilizar esta función, debe tener alguna experiencia previa con la programación VB.

Instrucciones

1 Copia el siguiente código:

Option Explicit

FileOrDirExists de función (nombre de ruta As String) As Boolean

'Macro Purpose: Function returns TRUE if the specified file

"O existe la carpeta, falso en caso contrario.

'NombreVía: Compatible con Windows unidades asignadas o UNC

': Admite rutas de Macintosh

'Usos del archivo: Proporcionar ruta completa del archivo y la extensión

'Carpeta de uso: Proporcionar ruta de la carpeta completa

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

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

Dim iTemp como número entero

'Ignorar errores para permitir la evaluación de errores

On Error Resume Next

iTemp = GetAttr (NombreVía)

"Compruebe si existe error y ajusta la respuesta apropiada

Select Case Err.Number

Caso es = 0

FileOrDirExists = True

Case Else

FileOrDirExists = False

End Select

'Comprobación de errores Reanudar

On Error Goto 0

End Function

TestItWithWindows sub ()

'Macro Purpose: To test the FileOrDirExists function with Windows

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

Dim como secuencia sPath

"Cambiar el directorio de aquí

sPath = "C: \ Prueba.xls"

"Si existe prueba de directorio o archivo

Si FileOrDirExists (Spath), entonces

MsgBox sPath y "existe!"

Más

MsgBox sPath y "no existe."

Terminara si

End Sub

Sub TestItWithMacintosh ()

'Macro Purpose: To test the FileOrDirExists function with a Macintosh

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

Dim como secuencia sPath

"Cambiar el directorio de aquí

sPath = "HardDriveName: Documentos: Test.doc"

"Si existe prueba de directorio o archivo

Si FileOrDirExists (Spath), entonces

MsgBox sPath y "existe!"

Más

MsgBox sPath y "no existe."

Terminara si

End Sub

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

3 Haga clic en "Insertar" y luego haga clic en "módulos".

4 Pegar el código en el panel de la derecha con la tecla "Ctrl" V ".

5 Cambiar "Text.xls" al nombre del archivo que está buscando.

6 Pulse la tecla "F5" para ejecutar el procedimiento. El procedimiento, regresará una ventana emergente que indica si el archivo existe.