Mientras programa sus macros, es posible que necesite determinar si un archivo en particular existe en el disco. Por ejemplo, el propósito de su macro puede ser abrir y leer un archivo de texto. Antes de hacerlo, querrá verificar si el archivo existe para evitar un error.

La siguiente función de VBA se puede utilizar para verificar la existencia de un archivo. Todo lo que necesita hacer es pasarle el nombre de archivo completo como una cadena, y la macro devuelve Verdadero (si el archivo existe) o Falso (si no lo hace).

Function FileThere(FileName As String) As Boolean      FileThere = (Dir(FileName) > "")

End Function

Esta función funciona mediante la función Dir, que busca un archivo en un directorio. Si el archivo existe, Dir devuelve la ruta completa del archivo. La condición Verdadero / Falso de la función se deriva comparando lo que devuelve Dir con una cadena vacía. Si se devuelve algo, el archivo existe porque Dir no devuelve una cadena vacía.

Puede utilizar la función similar a la siguiente:

If FileThere("c:\myfile.txt") Then      '      ' Do stuff here      ' Else      MsgBox "File Not There!"

End If

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2516) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Determining_If_a_File_Exists [Determinar si existe un archivo].