ДиалогВыбораФайла=Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
ДиалогВыбораФайла.ПолноеИмяФайла = "";
ДиалогВыбораФайла.Фильтр="Файлы Microsoft Excel (*.xls)|*.xls|Все файлы (*.*)|*.*";
ДиалогВыбораФайла.МножественныйВыбор=Ложь;
ДиалогВыбораФайла.ПроверятьСуществованиеФайла=Истина;
Если Не ДиалогВыбораФайла.Выбрать() Тогда
Возврат;
КонецЕсли;
ЦветаЭкселя = КнигаExcel.Colors.Выгрузить();
Исключение
Предупреждение("Ошибка при получении объекта Excel. Возможно не установлен Microsoft Office.",15);
Возврат;
КонецПопытки;
book = xlsApp.Workbooks.Add();
delSheet = book.Sheets(1);
СчетчикЛистов = 1;
Для Каждого ТабДок из МассивТабличныхДокументов Цикл
ИмяФайла=ПолучитьИмяВременногоФайла("xls");
ТабДок.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS);
tempBook=xlsApp.Workbooks.Open(ИмяФайла);
tempBook.Sheets(1).Name=ТабДок.Имя;
СчетчикЛистов=СчетчикЛистов+1;
tempBook.Sheets(1).Copy(delSheet);
tempBook.Close(0);
УдалитьФайлы(ИмяФайла);
КонецЦикла;
Попытка
delSheet.Delete();
Исключение
КонецПопытки;
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший