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

Kako hitro preveriti, ali je datoteka (delovni zvezek) odprta ali zaprta v Excelu?

Vsakodnevno delo v Excelu, hkrati odprete več delovnih zvezkov za delo, včasih pa vam lahko na stotine delovnih zvezkov nered zapomni, če je določen delovni zvezek odprt ali zaprt. Opustite tradicionalno metodo preverjanja datotek eno za drugo, tukaj vam predstavljam trike, kako hitro ugotoviti, ali je delovni zvezek odprt ali zaprt.

Preverite, ali je delovni zvezek odprt ali zaprt s sistemom VBA

S Kutools za Excel preverite, ali je delovni zvezek odprt ali zaprt dobra ideja3


Preverite, ali je delovni zvezek odprt ali zaprt s sistemom VBA

Tu je koda VBA, ki jo lahko zaženete, da preverite, ali je določena delovna zveza odprta ali zaprta.

1. Pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli in nato kopirajte in prilepite VBA v novega Moduli okno.

VBA: Preverite, ali je delovni zvezek odprt ali zaprt

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. In pritisnite F5 tipko za zagon te vba in odpre se pogovorno okno, ki vas opozori, da je določena delovna zveza odprta ali ne.
doc preveri, ali se datoteka odpre 1     doc preveri, ali se datoteka odpre 2

Nasvet: V zgornjem VBA "združujejo"Je ime delovnega zvezka, ki ga želite preveriti, lahko ga po potrebi.


S Kutools za Excel preverite, ali je delovni zvezek odprt ali zaprt

Če VBA ne poznate, lahko preverite, ali je delovni zvezek odprt do Kutools za Excel, s svojimi ostalo podokno, s pomočjo katerega boste lahko jasno videli vse odprte delovne zvezke na seznamu delovnih zvezkov podokna.

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. 

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. klik Kutools > ostalo , da omogočite podokno za krmarjenje. Oglejte si posnetek zaslona:
doc preveri, ali se datoteka odpre 3

2. Nato kliknite Delovni zvezek in list gumb, da razširite podokno, kamor želite iti Delovni zvezek in list oddelku. Na zgornjem seznamu si lahko ogledate vse odprte delovne zvezke. Oglejte si posnetek zaslona:
doc preveri, ali se datoteka odpre 4

z ostalo v podoknu lahko tudi hitro preklapljate med delovnimi zvezki ali listi na seznamu.

Kliknite tukaj, če želite izvedeti več o navigaciji.


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (5)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Odličen VBA, deluje odlično. Hvala.
Ta komentar je moderator na spletnem mestu minimiziral
Vau, super VBA, preprosto in deluje. Najlepša hvala :)
Ta komentar je moderator na spletnem mestu minimiziral
Želim se prepričati, da se vsi zavedajo, da bo funkcija "IsWorkBookOpen" lahko ugotovila samo, ali je delovni zvezek odprt v trenutnem primerku Excela. Če imate odprtih več primerkov, bi ga morali zagnati na vsakem primerku, da se prepričate, da je delovni zvezek (ne) odprt, z uporabo samo te kode.
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za vaš opomnik.
Ta komentar je moderator na spletnem mestu minimiziral
To dodam svoji kodi, vendar imam nekaj težav ...

Uporabljam funkcijo ur, da preverim, ali je delovni zvezek, iz katerega vzamem nekaj informacij, že odprt ali ne, če je odprt, makro msgbox uporabnik, ki mu reče, naj zapre delovni zvezek in znova zažene makro, do tukaj je vse v redu, težava je v tem, da po zaprtju delovnega zvezka in ponovnem zagonu makra nenehno piše, da je delovni zvezek odprt, medtem ko ni, kakšen nasvet?


Koda:


Podpreveri_BKG()

Nastavite wa = Nič

Confirmação = MsgBox("Deseja realizar a checagem de dados?", vbYesNo + vbExclamation, "Aviso Macro")
Če je Confirmação = vbNo, potem zapustite Sub

'------------------------------------------------ -------------------------------------------'
'///////////////////////////CHECANDO SE EXSH JÁ ESTA ABERTO\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\'
'------------------------------------------------ -------------------------------------------'
Dim xRet kot Boolean
xRet = IsWorkBookOpen("EXSH0101.xlsx")
Če xRet Potem
MsgBox "O arquivo EXSH0101 já está aberto, por favor, feche o arquivo antes de executar a macro novamente.", vbInformation, "ENRO EXSH0101"
'MsgBox "Datoteka EXSH0101 je že odprta, prosimo, da jo zaprite, preden znova zaženete makro.", vbInformation, "EXSH0101 ERROR"
Exit Sub
Konec Če
'------------------------------------------------ -------------------------------------------'
'//////////////////////////////////////////\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
'------------------------------------------------ -------------------------------------------'

Z aplikacijo
.EnableEvents = False
.ScreenUpdating = False
Končaj s

Pokličite Abrir_Arquivos

Pokličite Setando_EXSH

Pokličite Inserir_Formulas

Z aplikacijo
.EnableEvents = Res
.ScreenUpdating = Res
Končaj s

wb.Sheets("Inserir").Aktiviraj

End Sub
Tu še ni objavljenih komentarjev
Prosimo, pustite komentarje v angleščini
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL