Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

Как быстро проверить, открыт или закрыт файл (книга) в Excel?

Author Sun Last modified

В повседневной работе с Excel вы одновременно открываете несколько книг для работы, но иногда сотни книг могут запутать вас, и вы не сможете вспомнить, открыта ли конкретная книга или закрыта. Откажитесь от традиционного метода проверки файлов по одному, здесь я познакомлю вас с трюками, чтобы быстро узнать, открыта книга или закрыта.

Проверка, открыта или закрыта книга, с помощью VBA

Проверка, открыта или закрыта книга, с помощью Kutools для Excel good idea3


Проверка, открыта или закрыта книга, с помощью 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 Sub

3. И нажмите F5 , чтобы запустить этот VBA-код, и появится диалоговое окно, которое сообщит вам, открыта ли указанная книга или нет.
A screenshot showing a dialog box indicating that the workbook is open in Excel     A screenshot showing a dialog box indicating that the workbook is closed in Excel

Совет: В приведенном выше VBA «combine» — это имя книги, которую вы хотите проверить, вы можете изменить его по своему усмотрению.


Проверка, открыта или закрыта книга, с помощью Kutools для Excel

Если вы не знакомы с VBA, вы можете проверить, открыта ли книга с помощью Kutools для Excel, используя его панель Навигации, которая поможет вам четко видеть все открытые книги в списке книг на панели.

Kutools для Excel,оснащённый ИИ 🤖, предлагает более 300 удобных функций для упрощения ваших задач.

После бесплатной установки Kutools для Excel выполните следующие действия:

1. Нажмите Kutools > Навигация чтобы включить панель Навигации. См. скриншот:
A screenshot showing the Navigation pane on the Kutools tab

2. Затем нажмите кнопку Книги и листы , чтобы развернуть панель и перейти к разделу Книги и листы . И вы можете просмотреть все открытые книги в верхнем списке. См. скриншот:
A screenshot showing the Workbook and Sheet list in Kutools for Excel’s Navigation pane

С помощью панели Навигации вы также можете быстро переключаться между книгами или листами в списке.

Нажмите здесь, чтобы узнать больше о Навигации.

Демонстрация: Как создать динамический список имен листов в Excel?

Kutools для Excel: Более 300 удобных инструментов у вас под рукой! Наслаждайтесь постоянно бесплатными функциями ИИ! Скачать сейчас!

Лучшие инструменты для повышения продуктивности в Office

🤖 Kutools AI Aide: Совершенно новый подход к анализу данных благодаря: Интеллектуальное выполнение |  Генерация кода  |  Создание пользовательских формул |  Анализ данных и построение диаграмм  |  Вызов Kutools Functions
Популярные функции: Поиск, выделение или отметка дубликатов | Удалить пустые строки | Объединить столбцы или адреса без потери данных | Округлить ...
Супер ПОИСК: VLOOKUP по нескольким критериям | VLOOKUP по нескольким значениям | Многолистовой поиск | Распознавание нечетких соответствий ...
Расширенный раскрывающийся список: Быстро создать раскрывающийся список | Зависимый раскрывающийся список | Множественный выбор в раскрывающемся списке ...
Менеджер столбцов: Добавить определённое количество столбцов | Переместить столбцы | Переключить видимость скрытых столбцов | Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка фокусировки | Дизайн листа | Улучшенная строка формулы | Управление книгой и листами | Библиотека автотекста | Выбор даты | Объединить данные | Зашифровать/расшифровать ячейки | Отправить письмо по списку | Супер фильтр | Специальный фильтр (фильтр жирный/курсив/зачеркнутый...) ...
Топ15 наборов инструментов:12 текстовых инструментов (Добавить текст, Удалить определенные символы, ...) |50+ типов диаграмм (Диаграмма Ганта, ...) |40+ полезных формул (Расчет возраста на основе даты рождения, ...) |19 инструментов для вставки (Вставить QR-код, Вставить изображение по пути, ...) |12 инструментов преобразования (Преобразовать в слова, Конвертация валюты, ...) |7 инструментов объединения и разделения (Расширенное объединение строк, Разделить ячейки, ...) | ... и многое другое
Используйте Kutools на предпочитаемом вами языке — поддерживает Английский, Испанский, Немецкий, Французский, Китайский и более40 других языков!

Повысьте свои навыки работы в 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 Tabs PowerPoint
  • Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
  • Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
  • Совместная работа — максимальная эффективность между приложениями Office
  • 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
  • Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек