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 = ДБФ;
		
		
	КонецЕсли;
	
	
КонецЦикла; //выборка строк из таблицы ЦФО