ДиалогВыбораФайла=Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
ДиалогВыбораФайла.ПолноеИмяФайла = "";
ДиалогВыбораФайла.Фильтр="Файлы 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();
Исключение
КонецПопытки;
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс