Как найти или проверить, открыт ли конкретный файл книги в Excel?
Вы можете открывать сразу несколько книг. Если вам нужно быстро проверить, открыта ли в данный момент конкретная книга, VBA предлагает простое решение. В этом руководстве показано, как с помощью кода VBA мгновенно определить, открыта книга или нет.
Проверка, открыта ли книга в Excel
Проверка, открыта ли книга в Excel
Чтобы проверить, открыта ли книга в Excel, выполните следующие действия.
1. Нажмите Alt+F11, чтобы открыть окно Microsoft Visual Basic for Applications. В окне Microsoft Visual Basic for Applications выберите Вставка > Модуль.
2. Далее скопируйте приведённый ниже код VBA и вставьте его в редактор.
Код VBA: проверка, открыта ли книга
Sub TrimExcessSpaces()
Dim xWBName As String
Dim xWb As Workbook
On Error Resume Next
xTitleId = "KutoolsforExcel"
xWBName = Application.InputBox("Workbook Name", xTitleId, "", Type: = 2)
Set xWb = Application.Workbooks(xWBName)
If xWb Is Nothing Then
MsgBox "The Workbook is not open!"
Else
MsgBox "The Workbook is open!"
End If
End Sub3. Теперь нажмите клавишу F5, чтобы запустить код. Во всплывающем диалоговом окне Kutools for 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек