Добрый день!
Отрабатываю формирование и загрузку экселя из табличной части документа.Файл формирую.Записываю.Но тут же нужно запихнуть этот файл на почту.А у меня начинает ругаться на совместный доступ.В диспетчере задач весит процесс Exel.Почему то до конца процедуры он не закрывается.Хотя все вроде закрываю ЛистШаблона = Неопределено;
  ШаблонФайла.Close(Ложь); //Закрыли шаблон
  ШаблонФайла = 0;

  текЛист = Неопределено;
  Приложение=Неопределено;
---
wrkbook=ПодготовитьЭксель(ЛистШаблона,ВыборкаСотрудник.Сотрудник,НашФайл);
Инициализируешь wrkbook в цикле - открываешь книгу, беглым взглядом не нашел где закрываешь wrkbook.Close().

```1c
    wrkbook.Close() //Закрыли рабочую книгу
    ЛистШаблона = Неопределено;
    ШаблонФайла.Close(Ложь); //Закрыли шаблон
    ШаблонФайла = 0;
    Приложение.Quit(); //Закрыли Excell
```
---
Давай весь код.
Шаблон ты может и закрыл, а сам файл? =))
---
```1c
    Перем Приложение,ШаблонФайла;

    &НаСервере
    Процедура ЗаполнитьНаСервере()

    Объект.Рассылка.Очистить();

    ЗначенияПоказателей = ПолучитьИзВременногоХранилища(Параметры.Адрес);

    Запрос = Новый Запрос();
    Запрос.УстановитьПараметр("ЗначенияПоказателей", ЗначенияПоказателей);

    Запрос.Текст = "ВЫБРАТЬ
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.НомерСтроки КАК НомерСтроки,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.Сотрудник КАК Сотрудник,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.ТабельныйНомер КАК ТабельныйНомер,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.ПериодНачало КАК ПериодНачало,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.ПериодКонец КАК ПериодКонец,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.Подразделение КАК Подразделение,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.Подразделение2 КАК Подразделение2,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.Подразделение3 КАК Подразделение3,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.Должность КАК Должность,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.ЦФО КАК ЦФО,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.ЦФОРегион КАК ЦФОРегион,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.РабочаяГруппа1 КАК РабочаяГруппа1,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.РабочаяГруппа2 КАК РабочаяГруппа2,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.Статус КАК Статус,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.ДатаПриемаНаРаботу КАК ДатаПриемаНаРаботу,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.ДатаУвольнения КАК ДатаУвольнения,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.ДатаОкончанияИспытательногоСрока КАК ДатаОкончанияИспытательногоСрока,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.ДатаОкончанияЛьготногоПериода КАК ДатаОкончанияЛьготногоПериода,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.ОценкаПоКомпетенциям КАК ОценкаПоКомпетенциям,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.кСреднийФОТ КАК кСреднийФОТ,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.кРаб КАК кРаб,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.кОтр КАК кОтр,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.кНорм КАК кНорм,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.КПЭ КАК КПЭ,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.РабочихДней КАК РабочихДней,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.ОтработанныхДней КАК ОтработанныхДней,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.ЛьготныхДней КАК ЛьготныхДней,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.кЛьгот КАК кЛьгот,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.кЦелиЛьготногоПериода КАК кЦелиЛьготногоПериода,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.кЦелиКомпании КАК кЦелиКомпании,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.кПриб КАК кПриб,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.К5 КАК К5,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.СуммаРасчетная КАК СуммаРасчетная,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.РучнаяКорректировка КАК РучнаяКорректировка,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.Выплачено КАК Выплачено,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.СуммаИтого КАК СуммаИтого,
    | АБ_ДанныеДляРасчетаПремииРасчетПремии.СуммаНаРуки КАК СуммаНаРуки
    |ПОМЕСТИТЬ ВТЗначПоказат
    |ИЗ
    | &ЗначенияПоказателей КАК АБ_ДанныеДляРасчетаПремииРасчетПремии
    |;
    |
    |////////////////////////////////////////////////////////////­////////////////////
    |ВЫБРАТЬ
    | ВТЗначПоказат.НомерСтроки КАК НомерСтроки,
    | ВТЗначПоказат.Сотрудник КАК Сотрудник,
    | ВТЗначПоказат.ТабельныйНомер КАК ТабельныйНомер,
    | ВТЗначПоказат.ПериодНачало КАК ПериодНачало,
    | ВТЗначПоказат.ПериодКонец КАК ПериодКонец,
    | ВТЗначПоказат.Подразделение КАК Подразделение,
    | ВТЗначПоказат.Подразделение2 КАК Подразделение2,
    | ВТЗначПоказат.Подразделение3 КАК Подразделение3,
    | ВТЗначПоказат.Должность КАК Должность,
    | ВТЗначПоказат.ЦФО КАК ЦФО,
    | ВТЗначПоказат.ЦФОРегион КАК ЦФОРегион,
    | ВТЗначПоказат.РабочаяГруппа1 КАК РабочаяГруппа1,
    | ВТЗначПоказат.РабочаяГруппа2 КАК РабочаяГруппа2,
    | ВТЗначПоказат.Статус КАК Статус,
    | ВТЗначПоказат.ДатаПриемаНаРаботу КАК ДатаПриемаНаРаботу,
    | ВТЗначПоказат.ДатаУвольнения КАК ДатаУвольнения,
    | ВТЗначПоказат.ДатаОкончанияИспытательногоСрока КАК ДатаОкончанияИспытательногоСрока,
    | ВТЗначПоказат.ДатаОкончанияЛьготногоПериода КАК ДатаОкончанияЛьготногоПериода,
    | ВТЗначПоказат.ОценкаПоКомпетенциям КАК ОценкаПоКомпетенциям,
    | ВТЗначПоказат.кСреднийФОТ КАК кСреднийФОТ,
    | ВТЗначПоказат.кРаб КАК кРаб,
    | ВТЗначПоказат.кОтр КАК кОтр,
    | ВТЗначПоказат.кНорм КАК кНорм,
    | ВТЗначПоказат.КПЭ КАК КПЭ,
    | ВТЗначПоказат.кЛьгот КАК кЛьгот,
    | ВТЗначПоказат.кЦелиЛьготногоПериода КАК кЦелиЛьготногоПериода,
    | ВТЗначПоказат.кЦелиКомпании КАК кЦелиКомпании,
    | ВТЗначПоказат.кПриб КАК кПриб,
    | ВТЗначПоказат.К5 КАК К5,
    | ВТЗначПоказат.СуммаРасчетная КАК СуммаРасчетная,
    | ВТЗначПоказат.РучнаяКорректировка КАК РучнаяКорректировка,
    | ВТЗначПоказат.Выплачено КАК Выплачено,
    | ВТЗначПоказат.СуммаИтого КАК СуммаИтого,
    | ВТЗначПоказат.СуммаНаРуки КАК СуммаНаРуки,
    | ВТЗначПоказат.РабочихДней КАК РабочихДней,
    | ВТЗначПоказат.ОтработанныхДней КАК ОтработанныхДней,
    | ВТЗначПоказат.ЛьготныхДней КАК ЛьготныхДней
    |ИЗ
    | ВТЗначПоказат КАК ВТЗначПоказат
    |ИТОГИ ПО
    | Сотрудник";

    РезультатЗапроса = Запрос.Выполнить();
    ВыборкаСотрудник =РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    Пока ВыборкаСотрудник.Следующий() Цикл
    //Сообщить ("Обрабатываю строку по сотруднику "+ ВыборкаСотрудник.Сотрудник);

    НоваяСтрокаТабДок = Объект.Рассылка.Добавить();
    НоваяСтрокаТабДок.Сотрудник = ВыборкаСотрудник.Сотрудник;

    Для каждого Стр Из ВыборкаСотрудник.Сотрудник.ФизическоеЛицо.КонтактнаяИнформация Цикл
    Если Стр.Вид.Наименование = "Электронная почта" Тогда
    Если ПустаяСтрока(Стр.Представление) Тогда
    Сообщить("По сотруднику "+ВыборкаСотрудник.Сотрудник+" не указана электронная почта!");
    НоваяСтрокаТабДок.Отправлять = Ложь;
    Иначе
    НоваяСтрокаТабДок.ЭлектрПочта = Стр.Представление;
    НоваяСтрокаТабДок.Отправлять = Истина;
    КонецЕсли;
    КонецЕсли;
    КонецЦикла;

    ЛистШаблона=Неопределено;
    ДвоичныеДанныеФайла = Неопределено;
    НашФайл = Неопределено;
    wrkbook=ПодготовитьЭксель(ЛистШаблона,ВыборкаСотрудник.Сотрудник,НашФайл);
    Если wrkbook = Неопределено тогда Возврат
    КонецЕсли;

    ТекЛист = WrkBook.Worksheets(1);
    ТекЛист.Cells.EntireRow.Delete();

    КолКОлонок=37;//константа количество колонок
    СчетчикСтолбцов = 1;
    Пока СчетчикСтолбцов < КолКолонок Цикл
    ЛистШаблона.Columns(СчетчикСтолбцов).ColumnWidth = 30;
    Ширина = ЛистШаблона.Columns(СчетчикСтолбцов).ColumnWidth;
    ТекЛист.Columns(СчетчикСтолбцов).ColumnWidth = Ширина;
    СчетчикСтолбцов = СчетчикСтолбцов +1;
    КонецЦикла;

    //+шапка
    ДиапозонИсточник = ЛистШаблона.Range(ЛистШаблона.Cells(1, 1), ЛистШаблона.Cells(1, КолКОлонок));
    ДиапозонПриемник = ТекЛист.Range(ТекЛист.Cells(1, 1), ТекЛист.Cells(1, КолКОлонок));
    ДиапозонИсточник.Copy(ДиапозонПриемник);

    //+строки
    ВыборкаДетальныеЗаписи=ВыборкаСотрудник.Выбрать();
    ТекСтрокаЛиста= 2;
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
    ДобавитьСтрокуПоШаблону(текЛист,ЛистШаблона,2,ТекСтрокаЛиста,ВыборкаДетальныеЗаписи);
    КонецЦикла;

    //
    НоваяСтрока = ЗначенияПоказателей.Добавить();
    НоваяСтрока.Сотрудник = ВыборкаДетальныеЗаписи.Сотрудник;
    НоваяСтрока.ПериодНачало = ВыборкаДетальныеЗаписи.ПериодНачало;
    НоваяСтрока.ПериодКонец = ВыборкаДетальныеЗаписи.ПериодКонец;
    //Сообщить ("Обработка сотрудника закончена, сохраняю файл "+ ВыборкаСотрудник.Сотрудник);

    ЛистШаблона = Неопределено;
    ШаблонФайла.Close(Ложь); //Закрыли шаблон
    ШаблонФайла = 0;

    текЛист.SaveAs("C:\1АБ\Солодовников\Временнные\"+Строка(ВыборкаСотрудник.Сотрудник)+".xls" , 18); // 18 - xls 97-2003; 51 - xlsx 2007-2013

    текЛист = Неопределено;
    Приложение=Неопределено;
    текЛист = 0;

    АдресФайлаВоВременномХранилище = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(НашФайл.ПолноеИмя));

    НовойДокументТабДок = Документы.ЭлектронноеПисьмоИсходящее.СоздатьДокумент();
    НовойДокументТабДок.Тема = "Рассылка данных премии";
    НовойДокументТабДок.Дата = ТекущаяДата();
    НовойДокументТабДок.ЕстьВложения = Истина;

    НовойДокументТабДок.ПолучателиПисьма.Очистить();
    НовойДокументТабДок.ПолучателиПисьма.Добавить().Адрес = НоваяСтрокаТабДок.ЭлектрПочта;
    НовойДокументТабДок.Текст = "Автоматическая рассылка показателей расчета премий!!!!";
    НовойДокументТабДок.ТекстHTML = "Автоматическая рассылка показателей расчета премий!!!!";
    НовойДокументТабДок.СтатусПисьма = Перечисления.СтатусыИсходящегоЭлектронногоПисьма.Исходящее;
    НовойДокументТабДок.Ответственный = Пользователи.ТекущийПользователь();

    НовойДокументТабДок.Записать();
    ПараметрыФайла = Новый Структура;
    ПараметрыФайла.Вставить("Автор", Пользователи.ТекущийПользователь());
    ПараметрыФайла.Вставить("ВладелецФайлов", НовойДокументТабДок.Ссылка);
    ПараметрыФайла.Вставить("ИмяБезРасширения", НашФайл.ИмяБезРасширения);
    ПараметрыФайла.Вставить("РасширениеБезТочки", СтрЗаменить(НашФайл.Расширение,".","));
    ПараметрыФайла.Вставить("ВремяИзмененияУниверсальное", ТекущаяДата());

    АдресВременногоХранилищаТекста = ";
    Описание = ";
    НоваяСсылкаНаФайл = Неопределено;

    ПрисоединенныеФайлы.ДобавитьПрисоединенныйФайл(ПараметрыФайла,АдресФайлаВоВременномХранилище, АдресВременногоХранилищаТекста,Описание , НоваяСсылкаНаФайл);

    НовойДокументТабДок.Записать();
    НоваяСтрокаТабДок.ЭлектрПисьмо = НовойДокументТабДок.Ссылка;

    КонецЦикла;

    КонецПроцедуры

    &НаСервере
    Функция ПодготовитьЭксель(ЛистШаблона=Неопределено, СтрокаСотрудник,НашФайл)
    //******************************************************************
    //Здесь должен быть блок инициализации и подготовки экселя
    Приложение =Новый ComObject("Excel.Application");
    Приложение.visible =Ложь;
    Приложение.EnableEvents =Ложь;
    Приложение.DisplayAlerts =Ложь;

    ШаблонФайла = неопределено;

    ДвоичныеДанныеМакета = РеквизитФормыВЗначение("Объект").ПолучитьМакет("Макет");
    ДвоичныеДанныеМакета.Записать("C:\1АБ\Солодовников\Временнные\"+Строка(СтрокаСотрудник)+".xls");
    ФайлШаблона = Новый Файл ("C:\1АБ\Солодовников\Временнные\"+Строка(СтрокаСотрудник)+".xls"); //ПолучитьИмяВременногоФайла(".xls");
    НашФайл = ФайлШаблона;

    Если ФайлШаблона.Существует() Тогда
    Попытка
    WrkBook =Приложение.Workbooks.Add(ФайлШаблона.ПолноеИмя);
    ШаблонФайла = Приложение.Workbooks.open(ФайлШаблона.ПолноеИмя,0);
    Исключение
    КонецПопытки;
    КонецЕсли;

    Если ШаблонФайла = неопределено тогда
    Сообщить("Не нашли шаблон");
    WrkBook = Неопределено;
    Приложение =Неопределено;
    //WrkBook.Close();
    Возврат Неопределено;
    Конецесли;
    ЛистШаблона = ШаблонФайла.WorkSheets(1);

    //ПрочитатьПараметрыШаблона(ШаблонФайла);

    //Для й=2 по WrkBook.Worksheets.Count() Цикл //Удаляем все страницы кроме первой -последнюю страницу удалить нельзя-ругается
    // ТекЛист = WrkBook.Worksheets(1);
    // ТекЛист.Delete();
    //КонецЦикла;

    Возврат WrkBook;

    КонецФункции

    &НаСервере
    Процедура ДобавитьСтрокуПоШаблону(текЛист,ЛистШаблона,НомерСтрокиШаблона,НомерСтроки,ИсточникДанных=Неопределено)
    КолКОлонок=37;// потом заменим Количество колонок

    ДиапозонИсточник = ЛистШаблона.Range(ЛистШаблона.Cells(НомерСтрокиШаблона, 1), ЛистШаблона.Cells(НомерСтрокиШаблона, КолКОлонок));
    ДиапозонПриемник = ТекЛист.Range(ТекЛист.Cells(НомерСтроки, 1), ТекЛист.Cells(НомерСтроки, КолКОлонок));
    ДиапозонИсточник.Copy(ДиапозонПриемник);
    ДиапозонПриемник.Cells(1, 1).Value=НомерСтроки-1;
    Для й=2 По КолКОлонок Цикл
    ПодставитьЗначениеВЯчейку(ДиапозонПриемник.Cells(1, й),ИсточникДанных,й-1);
    КонецЦикла;
    НомерСтроки = НомерСтроки+1;
    КонецПроцедуры

    &НаСервере
    Функция ПодставитьЗначениеВЯчейку(Ячейка,ИсточникДанных,НомКол)
    ТекЗначение=Неопределено;

    ТекТекст=Ячейка.Text;
    Если (ПустаяСтрока(ТекТекст)=1) Тогда
    Возврат 0;
    ИначеЕсли (Лев(ТекТекст,2)="ъ_") и (прав(ТекТекст,2)="_ъ") Тогда
    ТЗ=ПреобразоватьВыборкуВТЗ(ИсточникДанных);
    ТекЗначение=ТЗ[0][НомКол];
    КонецЕсли;

    Если ТекЗначение<>Неопределено тогда
    Ячейка.Value = Строка(ТекЗначение);
    Иначе
    а=2;//для точки останова
    КонецЕсли;

    Возврат Истина;
    КонецФункции

    &НаСервере
    Функция ПреобразоватьВыборкуВТЗ(ИсточникДанных)
    ТаблицаЗначений=Новый ТаблицаЗначений;
    КвЧ=Новый КвалификаторыЧисла(10,0);
    КвЧ2=Новый КвалификаторыЧисла(15,2);
    КвС=Новый КвалификаторыСтроки(200);
    ТаблицаЗначений.Колонки.Добавить("НомерСтроки",Новый ОписаниеТипов("Строка",,,КвС));
    ТаблицаЗначений.Колонки.Добавить("Сотрудник",Новый ОписаниеТипов("СправочникСсылка.Сотрудники"));
    ТаблицаЗначений.Колонки.Добавить("ПериодНачало",Новый ОписаниеТипов("Дата"));
    ТаблицаЗначений.Колонки.Добавить("ПериодКонец",Новый ОписаниеТипов("Дата"));
    ТаблицаЗначений.Колонки.Добавить("кРаб",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("кОтр",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("кНорм",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("КПЭ",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("кЛьгот",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("кЦелиЛьготногоПериода",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("кЦелиКомпании",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("кПриб",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("К5",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("кСреднийФОТ",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("СуммаРасчетная",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("РучнаяКорректировка",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("Выплачено",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("СуммаИтого",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("СуммаНаРуки",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("РабочихДней",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("ОтработанныхДней",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("ЛьготныхДней",Новый ОписаниеТипов("Число",,,КвЧ));
    ТаблицаЗначений.Колонки.Добавить("ОценкаПоКомпетенциям",Новый ОписаниеТипов("Строка",,,КвС));
    ТаблицаЗначений.Колонки.Добавить("ДатаОкончанияЛьготногоПериода",Новый ОписаниеТипов("Дата"));
    ТаблицаЗначений.Колонки.Добавить("ДатаОкончанияИспытательногоСрока",Новый ОписаниеТипов("Дата"));
    ТаблицаЗначений.Колонки.Добавить("ДатаУвольнения",Новый ОписаниеТипов("Дата"));
    ТаблицаЗначений.Колонки.Добавить("ДатаПриемаНаРаботу",Новый ОписаниеТипов("Дата"));
    ТаблицаЗначений.Колонки.Добавить("Статус",Новый ОписаниеТипов("Строка",,,КвС));
    ТаблицаЗначений.Колонки.Добавить("РабочаяГруппа2",Новый ОписаниеТипов("СправочникСсылка.АБ_РабочиеГруппы"));
    ТаблицаЗначений.Колонки.Добавить("РабочаяГруппа1",Новый ОписаниеТипов("СправочникСсылка.АБ_РабочиеГруппы"));
    ТаблицаЗначений.Колонки.Добавить("ЦФОРегион",Новый ОписаниеТипов("СправочникСсылка.ТерриторииВыполненияРабот"));
    ТаблицаЗначений.Колонки.Добавить("ЦФО", Новый ОписаниеТипов("СправочникСсылка.ТерриторииВыполненияРабот"));
    ТаблицаЗначений.Колонки.Добавить("Должность", Новый ОписаниеТипов("СправочникСсылка.Должности"));
    ТаблицаЗначений.Колонки.Добавить("Подразделение3",Новый ОписаниеТипов("СправочникСсылка.ПодразделенияОрганизаций"));
    ТаблицаЗначений.Колонки.Добавить("Подразделение2",Новый ОписаниеТипов("СправочникСсылка.ПодразделенияОрганизаций"));
    ТаблицаЗначений.Колонки.Добавить("Подразделение",Новый ОписаниеТипов("СправочникСсылка.ПодразделенияОрганизаций"));
    ТаблицаЗначений.Колонки.Добавить("ТабельныйНомер",Новый ОписаниеТипов("Строка",,,КвС));

    НС=ТаблицаЗначений.Добавить();
    ЗаполнитьЗначенияСвойств(НС,ИсточникДанных);
    Возврат ТаблицаЗначений;
    КонецФункции

    &НаКлиенте
    Процедура Заполнить(Команда)

    ЗаполнитьНаСервере();

    КонецПроцедуры

    &НаСервере
    Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

    ЗагружаемыйОбъект = Параметры.Объект;
    ЗначенияПоказателей = ПолучитьИзВременногоХранилища(Параметры.Адрес);

    КонецПроцедуры
```
---
Вся соль в первой процедуре. текЛист я так понимаю весит.
---
wrkbook=ПодготовитьЭксель(ЛистШаблона,ВыборкаСотрудник.Сотрудник,НашФайл);
Инициализируешь wrkbook в цикле - открываешь книгу, беглым взглядом не нашел где закрываешь wrkbook.Close().

```1c
    wrkbook.Close() //Закрыли рабочую книгу
    ЛистШаблона = Неопределено;
    ШаблонФайла.Close(Ложь); //Закрыли шаблон
    ШаблонФайла = 0;
    Приложение.Quit(); //Закрыли Excell
```
---
Получается нигде сюда ТекЛист = WrkBook.Worksheets(1);
  ТекЛист.Cells.EntireRow.Delete();
 передал и все
---
Все работает.Спасибо тебе.Только вот вопрос на будущее в Приложение.Quit() нету Quit(),почему?
---
может и нету, я по коду поверхностно пробежался.

Приложение =Новый ComObject("Excel.Application"); - поидее у процесса Excel должен быть метод Quit, если память мне не изменяет.
Возможно, что Приложение.Quit() вызывается где-то после Приложение = Неопределено, а надо бы наоборот. Но это только догадка. Без отладчика тут сложно точно сказать.
---
Вот и я не нашел.В Excel.Application тоже нет.Поэтому написал Неопределено.Отработало.Вроде на 8.2 было.А тут на УФ 8.3 что то не нашел.Вот и думал,может фишка такая.А Quit по коду вообще нет.Все равно спасибо,буду дальше разбирать работу экселя.