Активация открытой книги Excel для корректировки



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



Код 1C v 8.х



Попытка

Эксель = Неопределено;

Книга = Неопределено;

Лист = Неопределено;



Состояние("Выполняется подключение к Excel");

Попытка

Книга = ПолучитьCOMОбъект(Файл, "Excel.Application");

Эксель = Книга.Application;

Исключение

Эксель = Новый COMОбъект("Excel.Application");

Книга = Эксель.WorkBooks.Open(Файл);

КонецПопытки;

Лист = Книга.WorkSheets(1);

Эксель.Visible = Истина;



Исключение

Сообщить("Не удалось подключить Excel." + Символы.ПС + ОписаниеОшибки());

Возврат;

КонецПопытки;



✍️ @odin1C_rus