Запись периодического реквизита в справочнике! 1С 7.7 не типовая

Процедура ВыбратьФайл()

   ИмяВыбрФайла = "";
   ИмяПути="";
   Если ФС.ВыбратьФайл(0, ИмяВыбрФайла, ИмяПути, "Выберите файл для загрузки",
           "Все файлы (*.*)!*.*", , ) = 1 Тогда
      Путь = ИмяПути + ИмяВыбрФайла;
   КонецЕсли;
	
КонецПроцедуры

//*******************************************
Процедура Сформировать()
	
	//Создаем ОЛЕ подключение к Excel
	Excel = СоздатьОбъект("Excel.Application");  
	
    НазваниеФайла = Путь;
	//Открываем файл
	Excel.Workbooks.Open(НазваниеФайла); 
	
	//Открываем активную книгу
	Книга = Excel.ActiveWorkbook;
	
	//Получааем количество строк в книге
	Строк = Excel.Cells.CurrentRegion.Rows.Count;
	
	//Создадим заранее объект справочника ТМЦ
	СпрОС = СоздатьОбъект("Справочник.ОсновныеСредства");  
	СпрСотрудники  = СоздатьОбъект("Справочник.Сотрудники"); 
	
	
	//Перебираем строки и обрабатываем данные
	Для х = 1 По Строк Цикл
		//Зная типы значений в колонках и перебирая строки получаем
		//необходимые значения и обрабатываем их   
		НаименованиеТМЦ		    = СокрЛП(Строка(Excel.Cells(х, 1).Value));
		КодОС          			= СокрЛП(Строка(Excel.Cells(х, 2).Value));  
		ИнвНомер 				= СокрЛП(Строка(Excel.Cells(х, 3).Value));
		ВидОС       	        = СокрЛП(Строка(Excel.Cells(х, 4).Value));
		Подразделение 			= СокрЛП(Строка(Excel.Cells(х, 5).Value));
		ОтветственноеЛицо       = СокрЛП(Строка(Excel.Cells(х, 6).Value)); 
		КодМОЛ                  = СокрЛП(Строка(Excel.Cells(х, 7).Value));
		//Сначала ищем товар по коду, если не нашли по наименованию  
		Если СпрОС.НайтиПоКоду(СокрЛП(КодОС)) = 1 Тогда 
			НайдТовар = СпрОС.ТекущийЭлемент(); 
			Сообщить("Код " + НайдТовар + "" + КодОС);
		
			Если СпрСотрудники.НайтиПоКоду(СокрЛП(КодМОЛ)) = 1 Тогда
				СпрОС.МОЛ.Установить(ТекущаяДата(), СпрСотрудники.ТекущийЭлемент());
				СпрОС.Записать();
				Сообщить();
			Конецесли;
		Иначе
			//Не нашли, продолжаем 
			//здесь можно создавать товар если надо
			Продолжить;
		Конецесли;
		
	Конеццикла;
	
	//После загрузки зарываем соединение с Excel
	Excel.Workbooks.Close();
	
КонецПроцедуры

Сообщить("Код " + НайдТовар + "" + КодОС);