Как перебрать все книги во всех экземплярах Excel?

harddy Пользователь Сообщений: 17 Регистрация: 17.05.2018	#1 13.07.2018 13:43:41 Здравствуйте, уважаемые! Есть задача: корректно закрыть все открытые книги без сохранения изменений во всех экземплярах Excel кроме текущей.

Андрей VG Пользователь Сообщений: 11927 Регистрация: 22.12.2012 Excel 2016, 365	#2 13.07.2018 15:37:22 Доброе время суток. Как раз ваша задача Успехов.

БМВ Модератор Сообщений: 23299 Регистрация: 28.12.2016 Excel 2013, 2016	#3 13.07.2018 15:56:01 ну или тут , Андрей VG, Андрей, приветствую. только вот как закрыть приложение другой сессии с сохранением? По вопросам из тем форума, личку не читаю.

Андрей VG

Пользователь

Сообщений: 11927 Регистрация: 22.12.2012

Excel 2016, 365

14.07.2018 13:46:07

Цитата
БМВ написал: только вот как закрыть приложение другой сессии с сохранением

Привет, Михаил.
Допиленный вариант по коду Сергея (плюс адаптация How to Use AccessibleObjectFromWindow API in VBA to Get Excel Application Object from Excel Instance Window Handle). Работать будет начиная с Excel 2010 (делал на Excel 2016 64bit).
В коде класса ExternalExcelCollection нужно удалить комментарии со строк закрытия книг внешнего Excel с сохранением, ну, соответственно или удалить или за комментировать строки

Код
Set eventer = New ExternalExcel eventer.Initialize nextXlApp, rangeChangeLogSheet xlAppCollection.Add eventer

Успехов.
P. S. Естественно, для создания других экземпляров Excel у меня в коде RunListener стоит лентяйка в виде вызова createExternal. Но получение объектных ссылок идёт через API.

Прикрепленные файлы

ExternalExcels.xlsb (26.69 КБ)

Изменено: Андрей VG - 14.07.2018 13:50:50

sokol92 Пользователь Сообщений: 4661 Регистрация: 10.09.2017	#5 14.07.2018 17:37:12 Здравствуйте, коллеги! Андрей, спасибо за замечательный учебный пример! Изменено: sokol92 - 14.07.2018 17:38:59 Владимир

Андрей VG Пользователь Сообщений: 11927 Регистрация: 22.12.2012 Excel 2016, 365	#6 14.07.2018 18:19:36 Добрый вечер, Владимир. Да не за что. Надо уже было добить эту тему. Вдруг будет полезной. Михаил правильно об этом напомнил. Изменено: Андрей VG - 14.07.2018 18:20:01

bedvit Пользователь Сообщений: 2629 Регистрация: 02.04.2015 Виталий	#7 15.07.2018 11:07:29 Андрей, во накодил Здорово получилось! «Бритва Оккама» или «Принцип Калашникова»?