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

Як швидко перевірити, відкритий чи закритий файл (робоча книга) в Excel?

У щоденній роботі Excel ви відкриваєте кілька робочих книг одночасно для роботи, але іноді сотні книг можуть зіпсувати вам голову, щоб пам’ятати, відкрита чи закрита конкретна книга. Відмовтеся від традиційного методу перевірки файлів по одному, тут я представляю вам трюки, як швидко знайти книгу відкритою чи закритою.

Перевірте, чи книга відкрита чи закрита за допомогою VBA

Перевірте, відкрита чи закрита книга за допомогою Kutools для Excel гарна ідея3


Перевірте, чи книга відкрита чи закрита за допомогою VBA

Ось код VBA, який ви можете запустити, щоб перевірити, відкрита чи закрита конкретна книга.

1. прес Alt + F11 клавіші, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модулі а потім скопіюйте та вставте VBA в новий Модулі вікна.

VBA: Перевірте, відкрита чи закрита книга

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. І натисніть F5 , щоб запустити цю vba, і вискакує діалогове вікно, щоб нагадати, що конкретна книга відкрита чи ні.
doc перевірити, чи відкрито файл 1     doc перевірити, чи відкрито файл 2

Порада: У наведеному вище VBA "об'єднувати”- це назва робочої книги, яку ви хочете перевірити, ви можете зробити це, як вам потрібно.


Перевірте, відкрита чи закрита книга за допомогою Kutools для Excel

Якщо ви не знайомі з VBA, ви можете перевірити, чи відкрита книга до Kutools для Excel, зі своїми навігація панелі, яка допоможе вам чітко переглянути всі відкриті книги у списку робочих книг на панелі.

Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. 

після безкоштовна установка Kutools для Excel, будь-ласка, виконайте наведені нижче дії:

1. клацання Кутулс > навігація щоб увімкнути панель навігації. Дивіться знімок екрана:
doc перевірити, чи відкрито файл 3

2 Потім натисніть Робоча книга та аркуш , щоб розгорнути область, до якої потрібно перейти Робоча книга та аркуш розділ. І ви можете переглянути всі відкриті книги у верхньому списку. Дивіться знімок екрана:
doc перевірити, чи відкрито файл 4

з навігація Ви також можете швидко перемикатись між книгами чи аркушами у списку.

Натисніть тут, щоб дізнатись більше про навігацію.


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (5)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Відмінний VBA, чудово працює. Спасибі.
Цей коментар був мінімізований модератором на сайті
Вау, супер VBA, простий і працює. Дуже дякую :)
Цей коментар був мінімізований модератором на сайті
Просто хочу переконатися, що всі знають, що функція "IsWorkBookOpen" зможе визначити, чи відкрита книга лише в поточному екземплярі Excel. Якщо у вас відкрито кілька екземплярів, вам потрібно буде запустити його на кожному екземплярі, щоб переконатися, що книга (не) відкрита, використовуючи лише цей код.
Цей коментар був мінімізований модератором на сайті
Дякую за нагадування.
Цей коментар був мінімізований модератором на сайті
Я додаю це до свого коду, але у мене є деякі проблеми...

Я використовую вашу функцію, щоб перевірити, чи відкрита робоча книга, з якої я беру деяку інформацію, чи ні, якщо вона відкрита, макрос msgbox користувач, який каже йому закрити книгу та перезапустити макрос, доки все в порядку, Проблема в тому, що після закриття книги та перезапуску макросу він продовжує говорити, що книга відкрита, але ні, є поради?


код:


Sub Check_BKG()

Встановити wa = Ніщо

Confirmação = MsgBox("Якщо реалізувати checagem de dados?", vbYesNo + vbExclamation, "Aviso Macro")
Якщо Confirmação = vbNo, то вийдіть із Sub

'------------------------------------------------ -------------------------------------------'
'///////////////////////////CHECANDO SE EXSH JÁ ESTA ABERTO\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\'
'------------------------------------------------ -------------------------------------------'
Dim xRet як логічне значення
xRet = IsWorkBookOpen("EXSH0101.xlsx")
Якщо xRet Тоді
MsgBox "O arquivo EXSH0101 já está aberto, por favor, feche o arquivo antes de executar a macro newmente.", vbInformation, "ERRO EXSH0101"
'MsgBox "Файл EXSH0101 вже відкритий, будь ласка, закрийте його перед перезапуском макросу.", vbInformation, "ПОМИЛКА EXSH0101"
Exit Sub
End If
'------------------------------------------------ -------------------------------------------'
'///////////////////////////////////////////\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
'------------------------------------------------ -------------------------------------------'

З додатком
.EnableEvents = False
.ScreenUpdating = False
Кінець з

Телефонуйте Abir_Arquivos

Зателефонуйте Setando_EXSH

Викликати Inserir_Formulas

З додатком
.EnableEvents = True
.ScreenUpdating = True
Кінець з

wb.Sheets("Inserir").Активувати

End Sub
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця