Как найти или проверить, открыта ли конкретная книга в Excel?

Вы можете открыть несколько рабочих книг одновременно. Если вам нужно проверить, открыта ли в данный момент определенная рабочая книга, VBA предоставляет простое решение. Это руководство покажет вам, как использовать код VBA для быстрого определения, открыта ли рабочая книга или нет.

Проверьте, открыта ли книга в Excel

Проверьте, открыта ли книга в Excel

Вы можете сделать следующее, чтобы проверить, открыта книга в Excel или нет.

1. нажмите другой + F11 для открытия Microsoft Visual Basic для приложений окно. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули.

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 ключ для запуска кода. В всплывающем KutoolsforExcel в диалоговом окне введите имя книги, которую хотите проверить, а затем щелкните значок OK кнопка. Смотрите скриншот:

Если указанная книга открыта, появится диалоговое окно, сообщающее вам, что книга открыта;

В противном случае, если указанная книга не открыта, вы увидите следующее диалоговое окно.