COMОбъект("Excel.Application")

Для каждого СтрокаТаблицы Из РезультатТаблицей Цикл
    
    
    Если СтрокаТаблицы.Проект = NULL
        ИЛИ СтрокаТаблицы.ЦФО = NULL
        Тогда
        Продолжить
    КонецЕсли;
    
    //Попробуем найти шаблон и скопируем его в указанный каталог 
    
    ИмяФайлШаблона = "E:\Exchange_1C_ZUP\zachislenia.xls";
    ИмяФайлШаблонаФайл = Новый Файл(ИмяФайлШаблона);
    Если ИмяФайлШаблонаФайл.Существует() Тогда
        
        ПутьКФайлу_с_ЦФО = ПолучитьПолноеИмяФайла(СтруктураПараметров, СтрокаТаблицы.Проект, СтрокаТаблицы.ЦФО, Истина);
        
        КопироватьФайл(ИмяФайлШаблона, ПутьКФайлу_с_ЦФО + ".xls");
        
        ExcelApp                 = Новый COMОбъект("Excel.Application");
        МассивЕкселей.Добавить(ExcelApp);
        
        Книга = ExcelApp.WorkBooks.Open(ПутьКФайлу_с_ЦФО + ".xls");  //Открытие существующей книги (файла) Excel. 
        
        Лист = Книга.WorkSheets("ЗАЧИСЛЕНИЯ");  //Установка листа в качестве рабочего
        Книга.ActiveSheet.Unprotect(СтруктураПараметров.ПарольЗащитыЛиста);
        
        //Очистим строки с сотрудниками (если есть). По идее в шаблоне не должно быть лишнего, это перестраховка.
        ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
        Для к=0 По ВсегоСтрок-7 Цикл //Шапка состоит из 6 строк
            
            ТекСтр = ВсегоСтрок-к;
            
            Сообщение = Новый СообщениеПользователю;
            Сообщение.Текст = "Удаление строки: " + ТекСтр;
            Сообщение.Сообщить();
            
            СтрокаОтчета = Лист.Range(Строка(ТекСтр)+":"+Строка(ТекСтр));
            СтрокаОтчета.EntireRow.Delete();          
            
        КонецЦикла;
        
        
        СтрокаТаблицы.ФайлВыгрузки_XLS = Книга;
        
        ДБФ                     = Новый XBase;
        
        ФайлВыгрузки = Новый Файл(ПутьКФайлу_с_ЦФО);
        Если ФайлВыгрузки.Существует() Тогда
            ДБФ.ОткрытьФайл(ПутьКФайлу_с_ЦФО + ".dbf");
            ДБФ.ОчиститьФайл();
        Иначе                              
            ДобавитьПоля(ДБФ);
            Если СтрокаТаблицы.Проект = СтруктураПараметров.ПроектЗП Тогда
                ДБФ.Поля.Добавить("MAIN",     "N", 1,  0);
            ИначеЕсли СтрокаТаблицы.Проект = СтруктураПараметров.ПроектПрочие Тогда
                ДБФ.Поля.Добавить("BIK",     "S", 9,  0);    
            ИначеЕсли СтрокаТаблицы.Проект = СтруктураПараметров.ПроектКасса Тогда
                ДБФ.Поля.Добавить("KASSA",     "N", 1,  0); 
            КонецЕсли;
            ДБФ.СоздатьФайл(ПутьКФайлу_с_ЦФО + ".dbf");
        КонецЕсли;      
        ДБФ.Кодировка = КодировкаXBase.OEM;  
        
        СтрокаТаблицы.ФайлВыгрузки_DBF = ДБФ;
        
        
    КонецЕсли;
    
    
КонецЦикла; //выборка строк из таблицы ЦФО