Determine si un libro de trabajo ya está abierto usando VBA en Microsoft Excel

Anonim

En Excel, podemos determinar si el libro de trabajo está cerrado o abierto a través del código VBA. A continuación se muestra el código y el proceso de VBA que debe pegar en el módulo de código del archivo.

1. Abra Excel
2. Presione ALT + F11
3. El editor de VBA se abrirá
4. Haga clic en cualquier lugar de la ventana del proyecto.
5. Haga clic en Insertar
6. Haga clic en Módulo

7. En la ventana Código, copie y pegue el código mencionado a continuación.

Función WorkbookOpen (WorkBookName como cadena) como booleano
'devuelve VERDADERO si el libro está abierto
WorkbookOpen = False
En caso de error GoToWorkBookNotOpen
Si Len (Application.Workbooks (WorkBookName) .Name)> 0 Entonces
WorkbookOpen = True
Función de salida
Terminara si
WorkBookNotOpen:
Función final

8. Una vez que esté pegado, vaya al archivo de Excel.
9. Seleccione la celda A1
10. Tipo = trabajo
11. Puede ver que = workbookopen es visible como una fórmula

12. Inicialmente no estaba allí

13. Escriba la fórmula = WorkbookOpen ("test1.xlsx")
14. Aquí, el libro de trabajo "test1.xlsx" se utiliza como ejemplo. Este archivo no está abierto.
15. Como este archivo no está abierto, se mostrará como "FALSO".

16. Seleccione la celda A3
17. Escriba la fórmula = WorkbookOpen ("determine-if-a-workbook-is-already-open-using-vba-in-microsoft-excel.xlsx")
18. Aquí, el libro de trabajo "determine-if-a-workbook-is-already-open-using-vba-in-microsoft-excel.xlsx" se utiliza como ejemplo. Este archivo está abierto.
19. Como este archivo está abierto, se mostrará como "TRUE"

Así es como podemos determinar si el libro de trabajo ya está abierto o no usando VBA en Microsoft Excel 2010 y Microsoft Excel 2013.

Si te gustaron nuestros blogs, compártelo con tus amigos en Facebook. Y también puedes seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar, complementar o innovar nuestro trabajo y hacerlo mejor para usted. Escríbenos a sitio de correo electrónico