Ugrás a tartalomra

Hogyan lehet gyorsan ellenőrizni, hogy egy fájl (munkafüzet) meg van-e nyitva vagy bezárva az Excelben?

Az Excel napi munkája során egyszerre több munkafüzetet nyit meg a munkához, de néha a munkafüzetek százai elronthatják a fejét, hogy emlékezzen arra, hogy egy adott munkafüzet nyitva vagy zárva van-e. Hagyjon fel a fájlok egyesével történő ellenőrzésének hagyományos módszerével, itt bemutatom Önnek azokat a trükköket, amelyek segítségével gyorsan megtalálhatja a nyitott vagy bezárt munkafüzetet.

Ellenőrizze, hogy nyitott vagy zárva van-e egy munkafüzet a VBA-val

A Kutools for Excel segítségével ellenőrizze, hogy egy munkafüzet nyitva vagy zárva van-e jó ötlet3


Ellenőrizze, hogy nyitott vagy zárva van-e egy munkafüzet a VBA-val

Itt van egy VBA-kód, amellyel ellenőrizheti, hogy egy adott munkafüzet nyitva vagy zárva van-e.

1. nyomja meg Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok majd másolja és illessze be a VBA-t az újba Modulok ablak.

VBA: Ellenőrizze, hogy nyitott vagy bezárt-e egy munkafüzet

Function IsWorkBookOpen(Name As String) As Boolean
    Dim xWb As Workbook
    On Error Resume Next
    Set xWb = Application.Workbooks.Item(Name)
    IsWorkBookOpen = (Not xWb Is Nothing)
End Function

Sub Sample()
    Dim xRet As Boolean
    xRet = IsWorkBookOpen("combine.xlsx")
    If xRet Then
        MsgBox "The file is open", vbInformation, "Kutools for Excel"
    Else
        MsgBox "The file is not open", vbInformation, "Kutools for Excel"
    End If
End Sub

3. És nyomja meg F5 gombot az vba futtatásához, és megjelenik egy párbeszédpanel, amely emlékezteti Önt arra, hogy az adott munkafüzet nyitva van-e vagy sem.
doc ellenőrizze, hogy van-e fájl megnyitva 1     doc ellenőrizze, hogy van-e fájl megnyitva 2

Tipp: A fenti VBA-ban „össze”A munkafüzet neve, amelyet ellenőrizni szeretne, szükség szerint megteheti.


A Kutools for Excel segítségével ellenőrizze, hogy egy munkafüzet nyitva vagy zárva van-e

Ha még nem ismeri a VBA-t, akkor ellenőrizheti, hogy a munkafüzet nyitva van-e Kutools az Excel számára, a sajátjaival Navigáció ablaktábla, amely segít az összes megnyitott munkafüzet egyértelmű megtekintésében az ablaktábla munkafüzetlistájában.

Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

1. kettyenés Kutools > Navigáció a Navigációs panel engedélyezéséhez. Lásd a képernyőképet:
doc ellenőrizze, hogy van-e fájl megnyitva 3

2. Ezután kattintson Munkafüzet és lap gombot az ablaktábla kibontásához, ahová ugorhat Munkafüzet és lap szakasz. És az összes nyitott munkafüzetet megtekintheti a felső listában. Lásd a képernyőképet:
doc ellenőrizze, hogy van-e fájl megnyitva 4

A Navigáció ablaktáblán is gyorsan válthat a munkafüzetek vagy a listában szereplő munkalapok között.

Kattintson ide, ha többet szeretne megtudni a navigációról.

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It doesn't work when the file has macros
This comment was minimized by the moderator on the site
I add this to my code but im having some issues...

I use ur function to check if a workbook with i take some information from is already open or not, if it is open, the macro msgbox the user, telling him to close the workbook and restart the macro, till here, everything ok, the problem is, after closing the workbook and restarting the macro, it keeps saying the workbook is open while its not, any tips?


Code:


Sub Check_BKG()

Set wa = Nothing

Confirmação = MsgBox("Deseja realizar a checagem de dados?", vbYesNo + vbExclamation, "Aviso Macro")
If Confirmação = vbNo Then Exit Sub

'--------------------------------------------------------------------------------------------'
'////////////////////////////CHECANDO SE EXSH JÁ ESTA ABERTO\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
'--------------------------------------------------------------------------------------------'
Dim xRet As Boolean
xRet = IsWorkBookOpen("EXSH0101.xlsx")
If xRet Then
MsgBox "O arquivo EXSH0101 já está aberto, por favor, feche o arquivo antes de executar a macro novamente.", vbInformation, "ERRO EXSH0101"
'MsgBox "The EXSH0101 file is already open, please close it before restart the macro.", vbInformation, "EXSH0101 ERROR"
Exit Sub
End If
'--------------------------------------------------------------------------------------------'
'////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
'--------------------------------------------------------------------------------------------'

With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Call Abrir_Arquivos

Call Setando_EXSH

Call Inserir_Formulas

With Application
.EnableEvents = True
.ScreenUpdating = True
End With

wb.Sheets("Inserir").Activate

End Sub
This comment was minimized by the moderator on the site
Just want to make sure everyone is aware, the "IsWorkBookOpen" function will only be able to tell if a workbook is open in the current instance of Excel. If you have multiple instances open you would need to run it on each instance to be sure the workbook is (not) open, using this code alone.
This comment was minimized by the moderator on the site
Thanks for your reminder.
This comment was minimized by the moderator on the site
Wow, super VBA, simple and works. Thank you very much :)
This comment was minimized by the moderator on the site
Excellent VBA, works great. Thanks.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations