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

Hvordan kontrolleres det hurtigt, om en fil (projektmappe) er åben eller lukket i Excel?

Excel dagligt arbejde, du åbner flere projektmapper på samme tid til at arbejde, men nogle gange kan hundreder af projektmapper ødelægge dit hoved for at huske, om en bestemt projektmappe er åben eller lukket. Opgiv den traditionelle metode til kontrol af filer en efter en, her introducerer jeg dig de tricks til hurtigt at finde en projektmappe er åben eller lukket.

Kontroller, om en projektmappe er åben eller lukket med VBA

Kontroller, om en projektmappe er åben eller lukket med Kutools til Excel god idé3


Kontroller, om en projektmappe er åben eller lukket med VBA

Her er en VBA-kode, du kan køre for at kontrollere, om en bestemt projektmappe er åben eller lukket.

1. Trykke Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler og derefter kopiere og indsætte VBA til den nye Moduler vindue.

VBA: Kontroller, om en projektmappe er åben eller lukket

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. Og tryk på F5 nøgle til at køre denne vba, og der vises en dialogboks, der minder dig om, at den specifikke projektmappe er åben eller ej.
doc kontrollere, om en fil er åben 1     doc kontrollere, om en fil er åben 2

Tip: I ovenstående VBA, “kombinerer”Er navnet på projektmappen, du vil kontrollere, du kan det, som du har brug for.


Kontroller, om en projektmappe er åben eller lukket med Kutools til Excel

Hvis du ikke er fortrolig med VBA, kan du kontrollere, om en projektmappe er åben af Kutools til Excel, med dens Navigation rude, som hjælper dig med tydeligt at se alle åbne projektmapper i ruden med projektmappe.

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

1. klik Kutools > Navigation for at aktivere navigationsruden. Se skærmbillede:
doc kontrollere, om en fil er åben 3

2. Klik derefter på Arbejdsbog og ark knap for at udvide ruden, du vil gå til Arbejdsbog og ark afsnit. Og du kan se alle åbne projektmapper på den øverste liste. Se skærmbillede:
doc kontrollere, om en fil er åben 4

Med Navigation rude, kan du også hurtigt skifte mellem projektmapper eller ark på listen.

Klik her for at vide mere om navigation.


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (5)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Fremragende VBA, fungerer godt. Tak.
Denne kommentar blev minimeret af moderatoren på webstedet
Wow, super VBA, enkelt og virker. Mange tak :)
Denne kommentar blev minimeret af moderatoren på webstedet
Vil bare sikre dig, at alle er klar over, at funktionen "IsWorkBookOpen" kun vil kunne fortælle, om en projektmappe er åben i den aktuelle forekomst af Excel. Hvis du har flere forekomster åbne, skal du køre den på hver forekomst for at være sikker på, at projektmappen (ikke) er åben, ved at bruge denne kode alene.
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for din påmindelse.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg tilføjer dette til min kode, men jeg har nogle problemer...

Jeg bruger ur-funktionen til at kontrollere, om en projektmappe med jeg tager nogle oplysninger fra allerede er åben eller ej, hvis den er åben, makroen msgbox brugeren, fortæller ham at lukke projektmappen og genstarte makroen, indtil her, alt ok, Problemet er, efter at have lukket projektmappen og genstartet makroen, bliver den ved med at sige, at projektmappen er åben, mens den ikke er, nogen tips?


Kode:


Sub Check_BKG()

Sæt wa = Intet

Confirmação = MsgBox("Deseja realizar a checagem de dodos?", vbYesNo + vbExclamation, "Aviso Macro")
Hvis Confirmação = vbNo Afslut Sub

'------------------------------------------------ --------------------------------------------------'
'////////////////////////////CHECANDO SE EXSH JÁ ESTA ABERTO\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\'
'------------------------------------------------ --------------------------------------------------'
Dim xRet As Boolean
xRet = IsWorkBookOpen("EXSH0101.xlsx")
Hvis xRet Så
MsgBox "Sådan er EXSH0101 já está aberto, por favor, feche or arquivo antes de executar a macro novamente.", vbInformation, "ERRO EXSH0101"
'MsgBox "EXSH0101-filen er allerede åben, luk den venligst før genstart af makroen.", vbInformation, "EXSH0101 FEJL"
Exit Sub
End If
'------------------------------------------------ --------------------------------------------------'
'///////////////////////////////////////////\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
'------------------------------------------------ --------------------------------------------------'

Med Ansøgning
.EnableEvents = Falsk
.ScreenUpdating = Falsk
Slut med

Ring til Abrir_Arquivos

Ring til Setando_EXSH

Ring til Inserir_Formulas

Med Ansøgning
.EnableEvents = Sand
.ScreenUpdating = Sand
Slut med

wb.Sheets("Indsæt").Aktiver

End Sub
Der er endnu ingen kommentarer her

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL