„Excel“ galime nustatyti, ar darbaknygė uždaryta, ar atidaryta per VBA kodą. Žemiau yra VBA kodas ir procesas, kurį turite įklijuoti į failo kodo modulį.
1. Atidarykite „Excel“
2. Paspauskite ALT + F11
3. Bus atidarytas VBA redaktorius
4. Spustelėkite bet kurią projekto lango vietą
5. Spustelėkite Įterpti
6. Spustelėkite Modulis
7. Kodo lange nukopijuokite ir įklijuokite toliau nurodytą kodą
Funkcija „Darbaknygė“ Atviras („WorkBookName As String“) kaip loginis'grąžina TRUE, jei darbo knyga yra atidaryta
„WorkbookOpen“ = klaidinga
Dėl klaidos „GoToWorkBookNotOpen“
Jei Len (Application.Workbooks (WorkBookName) .Name)> 0 Tada
„WorkbookOpen“ = tiesa
Išėjimo funkcija
Pabaiga Jei
„WorkBookNotOpen“:
Pabaigos funkcija
8. Kai tai bus įklijuota, eikite į „Excel“ failą
9. Pasirinkite langelį A1
10. Tipas = darbas
11. Matote, kad = darbaknygės atidarymas matomas kaip formulė
12. Iš pradžių jo nebuvo
13. Parašykite formulę = WorkbookOpen ("test1.xlsx")
14. Čia kaip pavyzdys naudojama darbo knyga „test1.xlsx“. Šis failas nėra atidarytas.
15. Kadangi šis failas nėra atidarytas, jis bus rodomas kaip „FALSE“
16. Pasirinkite langelį A3
17. Parašykite formulę = „WorkbookOpen“ („nustatyti, ar darbaknygė jau atidaryta naudojant„ vba-in-microsoft-excel.xlsx “)
18. Čia kaip pavyzdys naudojama darbaknygė „nustatyti, ar darbaknygė jau atidaryta naudojant„ vba-in-microsoft-excel.xlsx ““. Šis failas yra atidarytas.
19. Kadangi šis failas yra atidarytas, jis bus rodomas kaip „TRUE“
Taip galime nustatyti, ar darbaknygė jau atidaryta, ar nenaudojama VBA programose „Microsoft Excel 2010“ ir „Microsoft Excel 2013“.
Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Rašykite mums adresu pašto svetainę