Открыта или закрыта книга Excel? Проверяем с помощью кода VBA по краткому или полному имени файла, используя объектную переменную, цикл или оператор Open.
Проверка по краткому имени
Способ проверки по краткому имени, открыта ли рабочая книга, позволяет определить состояние проверяемой книги в том же экземпляре приложения Excel, в котором открыта книга с проверяющим кодом.
Использование объектной переменной
Вариант пользовательской функция VBA Excel, предназначенной для проверки, открыта или закрыта рабочая книга, путем определения результата присвоения ссылки на нее объектной переменной. Присвоение состоялось (BookOpenClosed = True) – книга открыта, произошла ошибка и присвоение не состоялось (BookOpenClosed = False) – книга закрыта.
|
1 2 3 4 5 6 |
Function BookOpenClosed(wbName As String) As Boolean Dim myBook As Workbook On Error Resume Next Set myBook = Workbooks(wbName) BookOpenClosed = Not myBook Is Nothing End Function |
Аргумент функции:
- wbName – краткое имя проверяемой рабочей книги.
Перебор открытых книг циклом
Этот вариант функции BookOpenClosed перебирает с помощью цикла все открытые книги Excel и проверяет их краткие имена на совпадение с кратким именем проверяемой книги. Совпадение найдено (BookOpenClosed = True) – книга открыта, совпадение не найдено (BookOpenClosed = False) – книга закрыта.
|
1 2 3 4 5 6 7 8 9 |
Function BookOpenClosed(wbName As String) As Boolean Dim myBook As Workbook For Each myBook In Workbooks If myBook.Name = wbName Then BookOpenClosed = True Exit For End If Next End Function |
В коллекцию Workbooks входят и скрытые книги, в том числе Личная книга макросов, и книга с функцией.
Проверка по полному имени
Проверка по полному имени с помощью оператора Open позволяет узнать, открыта ли рабочая книга каким-либо другим процессом: текущим экземпляром Excel, в котором открыта книга с проверяющим кодом, другим экземпляром Excel или сторонним приложением.
|
1 2 3 4 5 6 7 8 |
Function BookOpenClosed(wbFullName As String) As Boolean Dim ff As Integer ff = FreeFile On Error Resume Next Open wbFullName For Random Access Read Write Lock Read Write As #ff Close #ff BookOpenClosed = (Err.Number <> 0) End Function |
Аргумент функции:
- wbFullName – полное имя проверяемой рабочей книги.
Эта функция открывает с помощью оператора Open файл проверяемой книги с разрешением чтения и записи (параметр access) и запретом чтения и записи, если этот файл уже открыт другим процессом (параметр lock).
Если файл уже открыт другим процессом, а указанный тип доступа (параметр access) не разрешен (параметр lock), операция открытия завершится с ошибкой, а выражение (Err.Number <> 0) возвратит значение True.
Примеры проверки состояния книги
По краткому имени
|
1 2 3 4 5 6 7 |
Sub Primer1() If BookOpenClosed("Книга1.xlsx") Then MsgBox "Книга открыта" Else MsgBox "Книга закрыта" End If End Sub |
По полному имени
|
1 2 3 4 5 6 7 |
Sub Primer2() If BookOpenClosed("C:\Папка1\Папка2\Папка3\Книга1.xlsx") Then MsgBox "Книга открыта" Else MsgBox "Книга закрыта" End If End Sub |
Большое спасибо за подробную информацию
Примеры проверки состояния книги
По краткому имени
Сначала вставляем функцию, потом код в макрос.
все работает
Добрый день!
При вставке данной функции появляется ошибка «Sub or function not defined». Что это значит и как ее исправить?
Здравствуйте, Анна!
Такая ошибка может произойти, когда имя функции в вызывающей ее процедуре записано с ошибкой. Также, обратите внимание, что функция BookOpenClosed должна быть с таким именем одна в модуле.
Добрый день!
А если есть две формы, для каждой своя кнопка для UserForm.Show.
В первой есть
Public wb_targ As Workbookа далее всё определяется для открываемого файла и выполняется
Set wb_targ = Workbooks(TargetFileName)Первая форма закрывается, работаем во второй. Это в норме. Но если вызвать сразу вторую форму (т.е. не будет открытого
Workbooks(TargetFileName)), то как во второй форме проверить наличие открытой книги, ведь я не знаю заранее её имя.(можно, наверное, TargetFileName сделать глобальной и её смотреть во второй форме. Но тема Вашего урока "Книга (проверка состояния)". Хочется решить "по теме", с неизвестным именем).
Перепробовал, кажется, всё по типу
If wb_targ.FullName = ""Не прокатило… обломался (:
пришлось прятать вторую кнопку, пока по первой не пройдутся.
Спасибо.
Здравствуйте, Алик!
Проверить состояние книги с неизвестным именем не получится.
Обсуждение закрыто.