Utvrdite je li radna knjiga već otvorena pomoću VBA u programu Microsoft Excel

Anonim

U Excelu možemo odrediti je li radna knjiga zatvorena ili otvorena pomoću VBA koda. Ispod je VBA kôd i postupak koji trebate zalijepiti u kodni modul datoteke.

1. Otvorite Excel
2. Pritisnite ALT + F11
3. VBA Editor će se OTVORITI
4. Pritisnite bilo gdje u prozoru projekta
5. Pritisnite Umetni
6. Pritisnite Modul

7. U prozoru koda kopirajte i zalijepite dolje navedeni kod

Funkcija WorkbookOpen (WorkBookName As String) Kao Boolean
'vraća TRUE ako je radna knjiga otvorena
Radna knjigaOtvoreno = Netačno
Uključena greška GoToWorkBookNotOpen
Ako je Len (Application.Workbooks (WorkBookName) .Name)> 0 Zatim
WorkbookOpen = Istina
Izlazna funkcija
Završi ako
WorkBookNotOpen:
Završna funkcija

8. Nakon što je ovo zalijepljeno, idite na Excel datoteku
9. Odaberite ćeliju A1
10. Vrsta = rad
11. Možete vidjeti da je = workbookopen vidljiv poput formule

12. U početku nije bilo tamo

13. Napišite formulu = WorkbookOpen ("test1.xlsx")
14. Ovdje se kao primjer koristi radna bilježnica "test1.xlsx". Ova datoteka nije otvorena.
15. Kako ova datoteka nije otvorena, prikazat će se kao "FALSE"

16. Odaberite ćeliju A3
17. Napišite formulu = WorkbookOpen ("utvrdi-ako-je-radna knjiga-je-već-otvorena-pomoću-vba-u-microsoft-excel.xlsx")
18. Ovdje se kao primjer koristi radna knjiga "utvrdi-je-li-radna knjiga-je-već-otvorena-pomoću-vba-u-microsoft-excel.xlsx". Ova datoteka je otvorena.
19. Kako je ova datoteka otvorena, prikazat će se kao "TRUE"

Ovako možemo utvrditi je li radna knjiga već otvorena ili ne koristi VBA u programima Microsoft Excel 2010 i Microsoft Excel 2013.

Ako vam se sviđaju naši blogovi, podijelite ih sa svojim prijateljima na Facebooku. Također nas možete pratiti na Twitteru i Facebooku.
Voljeli bismo čuti vaše mišljenje, javite nam kako možemo poboljšati, nadopuniti ili inovirati svoj rad i učiniti ga boljim za vas. Pišite nam na web mjesto e -pošte