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

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

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

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

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


Проверьте, открыта или закрыта книга с помощью 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, и появится диалоговое окно, напоминающее вам, открыта конкретная книга или нет.
док проверить, открыт ли файл 1     док проверить, открыт ли файл 2

Наконечник: В приведенном выше VBA "объединять»- это имя книги, которую вы хотите проверить, вы можете использовать ее по своему усмотрению.


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

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

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. 

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

1. Нажмите Кутулс > Навигация , чтобы включить панель навигации. Смотрите скриншот:
док проверить, открыт ли файл 3

2. Затем нажмите Рабочая тетрадь и лист кнопку, чтобы развернуть панель и перейти к Рабочая тетрадь и лист раздел. И вы можете просмотреть все открытые книги в верхнем списке. Смотрите скриншот:
док проверить, открыт ли файл 4

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

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


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (5)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Отличный VBA, отлично работает. Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Вау, супер VBA, просто и работает. Большое тебе спасибо :)
Этот комментарий был сведен к минимуму модератором на сайте
Просто хочу убедиться, что все знают, что функция «IsWorkBookOpen» сможет только определить, открыта ли книга в текущем экземпляре Excel. Если у вас открыто несколько экземпляров, вам нужно будет запустить его на каждом экземпляре, чтобы убедиться, что рабочая книга (не) открыта, используя только этот код.
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за напоминания.
Этот комментарий был сведен к минимуму модератором на сайте
Я добавляю это в свой код, но у меня есть некоторые проблемы...

Я использую вашу функцию, чтобы проверить, открыта ли рабочая книга, из которой я беру некоторую информацию, или нет, если она открыта, макрос msgbox пользователю, говоря ему закрыть книгу и перезапустить макрос, пока здесь все в порядке, проблема в том, что после закрытия книги и перезапуска макроса он продолжает говорить, что книга открыта, хотя это не так, какие-нибудь советы?


Код:


Sub Check_BKG()

Установить ва = ничего

Confirmação = MsgBox("Выполнить запрос на контрольную проверку?", 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, porfavor, feche o arquivo antes de executar a macro novamente.", 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
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL