Una macro de Excel para determinar si un libro está abierto

Lo primero que hace la macro es declarar una variable String que contendrá el nombre de archivo que elija el usuario. TestBook es el nombre de su variable String.

En el paso 2, le dice a Excel que puede haber un error al ejecutar este código y, en caso de error, reanude el código. Sin esta línea, el código simplemente se detendría cuando ocurriera un error. Nuevamente, prueba un nombre de archivo determinado para ver si se puede asignar a una variable de objeto. Si se puede asignar el libro de trabajo dado, está abierto; si ocurre un error, se cierra.

En el paso 3, intenta asignar el libro de trabajo dado a la variable de objeto TestBook. El libro de trabajo que intenta asignar es una variable de cadena llamada TargetWorkbook. TargetWorkbook se pasa a la función en las declaraciones de función (consulte la primera línea del código). Esta estructura elimina la necesidad de codificar el nombre de un libro de trabajo, lo que le permite pasarlo como una variable.

En el Paso 4, simplemente verifica si ocurrió un error. Si no se produjo un error, el libro de trabajo está abierto, por lo que establece FileIsOpenTest en True. Si se produjo un error, el libro de trabajo no está abierto y establece FileIsOpenTest en False.

Nuevamente, esta función se puede usar para evaluar cualquier archivo que le pase, a través de su argumento TargetWorkbook. Ésta es la belleza de poner la macro en una función.

La siguiente macro demuestra cómo implementar esta función. Aquí, llama a la nueva función FileIsOpenTest para asegurarse de que el usuario no pueda abrir un archivo ya abierto:

Sub Macro1 ()

'Paso 1: Defina una variable de cadena

    Dim FName como variante

    Dim FNFileOnly As String

'Paso 2: El método GetOpenFilename activa el cuadro de diálogo

    FName = Application.GetOpenFilename (_

            FileFilter: = "Libros de Excel, *. Xl *", _

            Título: = "Elija un libro de trabajo para abrir", _

            Selección múltiple: = Falso)

'Paso 3: Abra el archivo elegido si aún no lo ha abierto

    Si FName <> False entonces

    FNFileOnly = StrReverse (Izquierda (StrReverse (FName), _

                 InStr (StrReverse (FName), ") - 1))