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

Вы можете открыть сразу несколько книг. Чтобы узнать или проверить, открыта ли конкретная книга. Здесь мы познакомим вас с тем, как использовать 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 кнопка. Смотрите скриншот:

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

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