Подсчитайте книги в VBA и закройте Excel, если Count> 1

Question

Как закрыть определенный файл Excel, если кто-то открывает новую книгу для Excel?

Вот что у меня есть:

If Workbooks.count > 1 Then
    Application.Visible = False
End If

Я сохранил его и затем закрыл, а затем снова открыл файл, затем нажал crtl + n для нового экземпляра Excel, и ничего не происходит. Я пропустил исходный код, чтобы активировать функцию подсчета?

Answer 1

Чтобы закрыть активную книгу программным способом, вы можете сделать:

If Workbooks.Count > 1 Then Workbooks("Put the name of the workbook you want to close here").Close End If

Application.Visible = False не закрывает книгу, но скрывает приложение.

Кроме того, если вы хотите создать новый экземпляр Excel, вы можете сделать:

Dim objExcel As Object Set objExcel = CreateObject("Excel.Application")