Avgör om en arbetsbok redan är öppen med VBA i Microsoft Excel

Anonim

I Excel kan vi avgöra om arbetsboken är nära eller öppen via VBA -kod. Nedan finns VBA -koden och processen som du behöver klistra in i kodens modul i filen.

1. Öppna Excel
2. Tryck på ALT + F11
3. VBA Editor öppnas
4. Klicka var som helst i projektfönstret
5. Klicka på Infoga
6. Klicka på Modul

7. Kopiera och klistra in nedanstående kod i kodfönstret

Funktion WorkbookOpen (WorkBookName As String) Som Boolean
'returnerar SANT om arbetsboken är öppen
WorkbookOpen = Falskt
Vid fel GoToWorkBookNotOpen
If Len (Application.Workbooks (WorkBookName) .Name)> 0 Then
WorkbookOpen = True
Avsluta funktion
Avsluta om
WorkBookNotOpen:
Avsluta funktion

8. När detta har klistrats in går du till Excel -filen
9. Välj cell A1
10. Typ = arbete
11. Du kan se att = workbookopen är synlig som en formel

12. Ursprungligen var den inte där

13. Skriv formeln = WorkbookOpen ("test1.xlsx")
14. Här används arbetsboken "test1.xlsx" som ett exempel. Den här filen är inte öppen.
15. Eftersom filen inte är öppen kommer den att visas som "FALSE"

16. Välj cell A3
17. Skriv formeln = WorkbookOpen ("bestäm-om-en-arbetsbok-är-redan-öppen-med-vba-i-microsoft-excel.xlsx")
18. Här används arbetsboken "bestäm-om-en-arbetsbok-är-redan-öppen-med-vba-i-microsoft-excel.xlsx" som ett exempel. Den här filen är öppen.
19. Eftersom den här filen är öppen kommer den att visas som "SANT"

Så här kan vi avgöra om arbetsboken redan är öppen eller inte använder VBA i Microsoft Excel 2010 och Microsoft Excel 2013.

Om du gillade våra bloggar, dela den med dina vänner på Facebook. Och du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra, komplettera eller förnya vårt arbete och göra det bättre för dig. Skriv till oss på e -postsajt