Nosakiet, vai darbgrāmata jau ir atvērta, izmantojot Microsoft Excel VBA

Anonim

Programmā Excel mēs varam noteikt, vai darbgrāmata ir tuvu vai atvērta, izmantojot VBA kodu. Zemāk ir VBA kods un process, kas jums jāielīmē faila koda modulī.

1. Atveriet programmu Excel
2. Nospiediet ALT + F11
3. VBA redaktors tiks atvērts
4. Noklikšķiniet jebkurā vietā projekta logā
5. Noklikšķiniet uz Ievietot
6. Noklikšķiniet uz Module

7. Koda logā nokopējiet un ielīmējiet zemāk minēto kodu

Funkcija WorkbookOpen (WorkBookName As String) kā Būla
'atgriež TRUE, ja darbgrāmata ir atvērta
WorkbookOpen = Nepareizi
Par kļūdu GoToWorkBookNotOpen
Ja Len (Application.Workbooks (WorkBookName) .Name)> 0 Tad
WorkbookOpen = True
Iziet funkcija
Beigas Ja
Darbgrāmata nav atvērta:
Beigu funkcija

8. Kad tas ir ielīmēts, dodieties uz Excel failu
9. Atlasiet šūnu A1
10. Tips = darbs
11. Jūs varat redzēt, ka = darbgrāmatas atvēršana ir redzama kā formula

12. Sākotnēji tā nebija

13. Uzrakstiet formulu = WorkbookOpen ("test1.xlsx")
14. Šeit kā piemērs tiek izmantota darbgrāmata "test1.xlsx". Šis fails nav atvērts.
15. Tā kā šis fails nav atvērts, tas tiks parādīts kā “FALSE”

16. Atlasiet šūnu A3
17. Uzrakstiet formulu = WorkbookOpen ("noteikt, vai darbgrāmata jau ir atvērta, izmantojot vba-in-microsoft-excel.xlsx")
18. Šeit kā piemērs tiek izmantota darbgrāmata "noteikt, vai darbgrāmata jau ir atvērta, izmantojot vba-in-microsoft-excel.xlsx". Šis fails ir atvērts.
19. Tā kā šis fails ir atvērts, tas tiks parādīts kā “TRUE”

Tādā veidā mēs varam noteikt, vai darbgrāmata jau ir atvērta vai netiek izmantota, izmantojot Microsoft Excel 2010 un Microsoft Excel 2013 VBA.

Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums uz e -pasta vietne