Як знайти або перевірити, чи відкрита певна книга в Excel?

Ви можете відкрити кілька книг одночасно. Для з’ясування чи перевірки відкритості конкретної книги. Тут ми познайомимо вас із використанням VBA для перевірки відкритості робочих книжок чи ні.

Перевірте, чи відкрита книга в Excel

Перевірте, чи відкрита книга в Excel

Ви можете зробити наступне, щоб перевірити, чи відкрита книга в Excel.

1 Натисніть кнопку інший + F11 відкрити Microsoft Visual Basic для додатків вікно. В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі.

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 Sub

3. Тепер натисніть F5 клавіша для запуску коду. У спливаючому Kutools для Excel діалогове вікно, введіть ім'я книги, яку потрібно перевірити, а потім клацніть на OK кнопку. Дивіться знімок екрана:

Якщо вказану книгу відкрито, з’явиться діалогове вікно із повідомленням про те, що книга відкрита;

В іншому випадку ви отримаєте діалогове вікно нижче, якщо вказану книгу не буде відкрито.