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

Jak szybko sprawdzić, czy plik (skoroszyt) jest otwarty czy zamknięty w programie Excel?

Codzienna praca w programie Excel polega na otwieraniu wielu skoroszytów jednocześnie do pracy, ale czasami setki skoroszytów mogą zepsuć Ci głowę, aby pamiętać, czy określony skoroszyt jest otwarty, czy zamknięty. Porzuć tradycyjną metodę sprawdzania plików jeden po drugim, tutaj przedstawiam ci sztuczki, aby szybko znaleźć skoroszyt jako otwarty lub zamknięty.

Sprawdź, czy skoroszyt jest otwarty lub zamknięty za pomocą VBA

Sprawdź, czy skoroszyt jest otwarty lub zamknięty w Kutools for Excel dobry pomysł 3


Sprawdź, czy skoroszyt jest otwarty lub zamknięty za pomocą VBA

Oto kod VBA, który możesz uruchomić, aby sprawdzić, czy określony skoroszyt jest otwarty, czy zamknięty.

1. naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Moduł a następnie skopiuj i wklej VBA do nowego Moduł okno.

VBA: Sprawdź, czy skoroszyt jest otwarty, czy zamknięty

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. I naciśnij F5 do uruchomienia tego VBA i pojawi się okno dialogowe przypominające, że określony skoroszyt jest otwarty, czy nie.
doc sprawdź, czy plik jest otwarty 1     doc sprawdź, czy plik jest otwarty 2

Wskazówka: W powyższym języku VBA „połączyć”To nazwa skoroszytu, którą chcesz sprawdzić, możesz to zrobić według potrzeb.


Sprawdź, czy skoroszyt jest otwarty lub zamknięty w Kutools for Excel

Jeśli nie znasz języka VBA, możesz sprawdzić, czy skoroszyt jest otwarty przez Kutools dla programu Excel, z jego Nawigacja okienko, które pomoże ci wyraźnie wyświetlić wszystkie otwarte skoroszyty na liście skoroszytów w okienku.

Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:

1. kliknij Kutools > Nawigacja aby włączyć okienko nawigacji. Zobacz zrzut ekranu:
doc sprawdź, czy plik jest otwarty 3

2. Następnie kliknij Skoroszyt i arkusz , aby rozwinąć okienko, do którego chcesz przejść Skoroszyt i arkusz Sekcja. Możesz wyświetlić wszystkie otwarte skoroszyty na górnej liście. Zobacz zrzut ekranu:
doc sprawdź, czy plik jest otwarty 4

Z Nawigacja okienku, możesz również szybko przełączać się między skoroszytami lub arkuszami na liście.

Kliknij tutaj, aby dowiedzieć się więcej o nawigacji.


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (5)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Znakomity VBA, działa świetnie. Dzięki.
Ten komentarz został zminimalizowany przez moderatora na stronie
Wow, super VBA, proste i działa. Dziękuję bardzo :)
Ten komentarz został zminimalizowany przez moderatora na stronie
Po prostu upewnij się, że wszyscy są świadomi, funkcja „IsWorkBookOpen” będzie w stanie stwierdzić tylko, czy skoroszyt jest otwarty w bieżącym wystąpieniu programu Excel. Jeśli masz otwartych wiele wystąpień, musisz uruchomić je w każdym wystąpieniu, aby upewnić się, że skoroszyt jest (nie) otwarty, używając tylko tego kodu.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję za przypomnienie.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dodaję to do mojego kodu, ale mam pewne problemy...

Korzystam z funkcji ur, aby sprawdzić, czy skoroszyt, z którego pobieram jakieś informacje, jest już otwarty, czy nie, jeśli jest otwarty, makro msgbox użytkownika, mówiąc mu, aby zamknął skoroszyt i zrestartował makro, aż tutaj wszystko w porządku, Problem polega na tym, że po zamknięciu skoroszytu i ponownym uruchomieniu makra, wciąż mówi, że skoroszyt jest otwarty, a nie, jakieś wskazówki?


Kod:


Kontrola podrzędna_BKG()

Ustaw wa = Nic

Confirmação = MsgBox("Deseja realizar a checagem de dados?", vbYesNo + vbExclamation, "Aviso Macro")
Jeśli Confirmação = vbNo, to wyjdź z Sub

'------------------------------------------------- -------------------------------------------------------'
'////////////////////////////CHECANDO SE EXSH JÁ ESTA ABERTO\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\'
'------------------------------------------------- -------------------------------------------------------'
Dim xRet jako wartość logiczna
xRet = IsWorkBookOpen("EXSH0101.xlsx")
Jeśli xRet Wtedy
MsgBox "O arquivo EXSH0101 já está aberto, por favor, feche o arquivo antes de executar a macro novamente.", vbInformation, "ERRO EXSH0101"
'MsgBox "Plik EXSH0101 jest już otwarty, zamknij go przed ponownym uruchomieniem makra.", vbInformation, "EXSH0101 ERROR"
Exit Sub
End If
'------------------------------------------------- -------------------------------------------------------'
'///////////////////////////////////////////\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
'------------------------------------------------- -------------------------------------------------------'

Z aplikacją
.EnableEvents = Fałsz
.ScreenUpdating = Fałsz
Kończyć z

Zadzwoń do Abrir_Arquivos

Zadzwoń do Setando_EXSH

Zadzwoń do Inserir_Formus

Z aplikacją
.EnableEvents = True
.ScreenUpdating = True
Kończyć z

wb.Sheets("Inserir").Aktywuj

End Sub
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL