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

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

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

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

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

1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль.

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 введите имя книги, которую хотите проверить, а затем нажмите кнопку ОК. См. скриншот:

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

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