Как быстро проверить, открыт или закрыт файл (рабочая книга) в Excel?
В повседневной работе в Excel Вы одновременно открываете несколько рабочих книг, но иногда из-за сотен открытых книг становится сложно вспомнить, открыта конкретная рабочая книга или нет. Откажитесь от традиционного метода проверки файлов по одному — здесь я покажу Вам приёмы для быстрого определения, открыта рабочая книга или закрыта.
Проверка, открыта или закрыта рабочая книга, с помощью VBA
Проверка, открыта или закрыта рабочая книга, с помощью Kutools для Excel 
Проверка, открыта или закрыта рабочая книга, с помощью VBA
Ниже приведён код VBA, который позволяет проверить, открыта ли конкретная рабочая книга или закрыта.
1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Выберите пункт Вставка > Модуль, а затем скопируйте и вставьте код 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 Sub3. Затем нажмите клавишу F5, чтобы запустить этот макрос VBA — появится диалоговое окно с уведомлением о том, открыта ли указанная рабочая книга.
Совет: В приведённом выше коде VBA «combine» — это имя книги, которую необходимо проверить; замените его по своему усмотрению.
Проверка, открыта или закрыта рабочая книга, с помощью Kutools для Excel
Если вы не знакомы с VBA, проверить, открыта ли рабочая книга, можно с помощью Kutools для Excel и его панели Навигация, которая наглядно отображает все открытые рабочие книги в разделе «Список книг» этой панели.
После бесплатной установкиKutools для Excel выполните следующие действия:
1. Нажмите Kutools > Навигация, чтобы активировать панель навигации. См. снимок экрана:
2. Затем нажмите кнопку Рабочая книга и Лист, чтобы развернуть панель и перейти в раздел Рабочая книга и Лист. Все открытые рабочие книги отображаются в верхнем списке. См. снимок экрана:
С помощью панели Навигация можно быстро переключаться между рабочими книгами или листами в списке.
Нажмите здесь, чтобы узнать больше о функции «Навигация».
Демонстрация: как создать динамический список имён листов в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек