Перевірте, чи робоча книга відкрита
Ось кілька справжніх базових кодів для тестування, якщо наразі книга відкрита шляхом тестування на ім’я книги, а не на повну назву, включаючи шлях.
Я писав код у таблиці, яка змінювала аркуші в іншій книзі, і хотів переконатися, що книга 2 відкрита перед виконанням коду у книзі 1.
Sub TestByWorkbookName () Dim wb як робоча книга для кожної wb у робочих книгах Якщо wb.Name = "Новий робочий аркуш Microsoft Excel.xls" Тоді MsgBox "Знайшов" Вийти з коду виклику Sub 'тут, поки що ми просто вийдемо End If Next End Підп