Как быстро проверить, открыт или закрыт файл (книга) в 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 Sub

3. И нажмите F5 , чтобы запустить этот VBA-код, и появится диалоговое окно, которое сообщит вам, открыта ли указанная книга или нет.
    

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

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

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

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

1. Нажмите Kutools > Навигация чтобы включить панель Навигации. См. скриншот:

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

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

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

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