1
Abra una nueva hoja de cálculo Excel 2010 . Pulse el botón " Alt" y " F11 " para abrir la consola de VBA.
2 Haga clic en " Sheet1" en el lado izquierdo de la consola . Mueve el ratón sobre "Insertar" en el menú emergente y seleccione " Módulo ". Haga doble clic en el módulo que aparece en la lista de elementos en el lado izquierdo de la pantalla.
3 Haga clic en el espacio en blanco en la parte derecha de la consola de VBA. Escriba el siguiente código:
Función checkfile (filename As String ) As Boolean
checkfile = ( Dir ( nombre ) < > "" )
End Function
Esto creará una función llamada " checkfile " que se puede llamar desde otras secciones de código VBA. La función es Boolean , ya que devolverá una respuesta afirmativa o negativa , y requiere que se introduzca un nombre de archivo cuando se llama a la función. La función se usa el comando " Dir" para traer el archivo en la memoria. Si el archivo no existe , el comando Dir devolverá una entrada en blanco y " checkfile " será falsa .
4
Presione "Enter " para llegar a una nueva línea debajo de la función que acaba de crear . Escriba el siguiente código : Sub
Filetest ()
Si checkfile ("c : \\ screenshot1.bmp ") Luego
MsgBox " Sí "
Otras ventas
MsgBox "No "
End If End Sub
Esto es sólo una simple macro que utilice su función checkfile y devolver un "Sip "o" mensaje Nop " , dependiendo de si existe o no el archivo . Cambiar "C: \\ screenshot1.bmp " a cualquier archivo que está buscando . Haga clic en el botón verde "Play" en la barra de comandos de VBA para ejecutar la macro y comprobar la existencia del archivo.