Una macro de Excel para determinar si existe un libro de trabajo

  1. Software
  2. Oficina de Microsoft
  3. Excel
  4. Una macro de Excel para determinar si existe un libro de trabajo

Libro Relacionado

Macros de Excel para tontos

Por Michael Alexander

Esta macro de Excel le permite pasar una vía de acceso de fichero para evaluar si el fichero está allí. Por ejemplo, es posible que tenga un proceso que manipule un archivo en algún lugar de su PC. Por ejemplo, es posible que necesite abrir un libro de trabajo existente para agregarle datos diariamente. En este caso, es posible que necesite probar para ver si el archivo que necesita manipular existe.

Cómo funciona la macro

Lo primero que hay que notar sobre esta macro es que es una función, no un procedimiento Sub. Hacer de esta macro una función le permite pasarle cualquier ruta de archivo.

En esta macro, utilice la función Dir, que devuelve una cadena que representa el nombre del fichero que coincide con lo que le pasa. Esta función se puede utilizar de muchas maneras, pero aquí se utiliza para verificar si la vía de acceso de fichero que se le pasa existe:

Función FileExists(FPath As String) As Boolean'Step 1: Declare your variables Dim FName As String'Step 2: Use the Dir function to get the filename FName = Dir(FPath)'Step 3: If file exists, return True; else False If FName <> " Then FileExists = True _ Else: FileExists = Función FalseEnd

El paso 1 declara una variable String que contiene el nombre de archivo que devuelve la función Dir. FName es el nombre de la variable String.

En el paso 2, se intenta establecer la variable FName. Esto se hace pasando la variable FPath a la función Dir. Esta variable FPath se pasa a través de las declaraciones de función (véase la primera línea del código). Esta estructura evita que tenga que codificar una ruta de archivo, pasándola como una variable en su lugar.

Si la variable FName no se puede establecer, la ruta que ha pasado no existe. Por lo tanto, la variable FName está vacía. El Paso 3 simplemente traduce ese resultado a una expresión Verdadera o Falsa.

Una vez más, esta función se puede utilizar para evaluar cualquier ruta de archivo que le pase. Esta es la belleza de escribir la macro como una función.

La siguiente macro muestra cómo utilizar esta función:

Sub Macro1() Si existe archivo("C:TempMyNewBook.xlsx") = True Then MsgBox "File exists." Else MsgBox "File does not exist." Finalizar IfEnd Sub

Cómo utilizar la macroinstrucción

Para implementar esta macro, puede copiar y pegar ambos fragmentos de código en un módulo estándar:

  1. Active Visual Basic Editor presionando Alt+F11.
  2. Haga clic con el botón derecho del ratón en el nombre del proyecto o libro de trabajo en la ventana del proyecto.
  3. Elija Insert→Module
  4. Escriba o pegue el código en el módulo recién creado.

Leave a Reply

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *