Note: The other languages of the website are Google-translated. Back to English

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

Ellenőrizze, hogy nyitott vagy zárva van-e egy munkafüzet a Kutools for Excel programmal 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.


Ellenőrizze, hogy nyitott vagy zárva van-e egy munkafüzet a Kutools for Excel programmal

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 az alábbiak szerint:

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

Val vel 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 termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (5)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Kiváló VBA, remekül működik. Kösz.
A weboldal moderátora ezt a megjegyzést minimalizálta
Hú, szuper VBA, egyszerű és működik. Nagyon szépen köszönjük :)
A weboldal moderátora ezt a megjegyzést minimalizálta
Szeretnénk megbizonyosodni arról, hogy mindenki tisztában van vele, hogy az „IsWorkBookOpen” funkció csak akkor tudja megállapítani, ha egy munkafüzet nyitva van az Excel aktuális példányában. Ha több példánya van megnyitva, minden példányon le kell futtatnia, hogy megbizonyosodjon arról, hogy a munkafüzet (nem) van nyitva, csak ezt a kódot használja.
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm az emlékeztetőt.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ezt hozzáadom a kódomhoz, de van néhány problémám...

Az ur függvényt használom annak ellenőrzésére, hogy egy munkafüzet, amelyből veszek bizonyos információkat, már nyitva van-e vagy sem, ha nyitva van, a makró üzeni a felhasználónak, hogy zárja be a munkafüzetet és indítsa újra a makrót, addig minden rendben van, a A probléma az, hogy a munkafüzet bezárása és a makró újraindítása után folyamatosan azt mondja, hogy a munkafüzet nyitva van, miközben nincs. Van valami tipp?


Kód:


Alcsekk_BKG()

Set wa = Semmi

Confirmação = MsgBox ("Deseja realizar a checagem de dados?", vbYesNo + vbFelkiáltás, "Aviso Macro")
Ha Confirmação = vbNo, akkor lépjen ki a Sub

'------------------------------------------------- -------------------------------------------'
„////////////////////////////CHECANDO SE EXSH JÁ ESTA ABERTO\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\'
'------------------------------------------------- -------------------------------------------'
Dim xRet Booleanként
xRet = IsWorkBookOpen("EXSH0101.xlsx")
Ha xRet Akkor
MsgBox "O arquivo EXSH0101 já está aberto, por favor, feche o arquivo antes de executar a macro novamente.", vbInformation, "ERRO EXSH0101"
'MsgBox "Az EXSH0101 fájl már nyitva van, kérjük, zárja be a makró újraindítása előtt." vbInformation, "EXSH0101 ERROR"
Exit Sub
Ha véget
'------------------------------------------------- -------------------------------------------'
„////////////////////////////////////////////\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
'------------------------------------------------- -------------------------------------------'

Alkalmazással
.EnableEvents = Hamis
.ScreenUpdating = Hamis
Vége

Hívja Abrir_Arquivost

Hívja a Setando_EXSH-t

Hívja az Inserir_Formulas-t

Alkalmazással
.EnableEvents = Igaz
.ScreenUpdating = Igaz
Vége

wb.Sheets("Inserir"). Aktiválja

End Sub
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi