Загрузка данных из файла csv в регистр сведений ЗУП

Всем Доброго!!!!!! Вот пишу загрузку:
1С:Предприятие 8.2 (8.2.17.153)
Зарплата и Управление Персоналом, редакция 2.5 (2.5.65.2)

Создала РС "Загрузка"-периодический в течении дня, ресурс-показатель загрузки гостиницы проживающими гостями. Загружаю файл поле дата и поле число. Итак, вот код:

Процедура КнопкаВыполнитьНажатие(Кнопка)

/////////////открытие .csv-документа
Док = ПолучитьCOMОбъект(Путь);
счСтроки = 1;
день=1;

//Цикл строк
Пока Док.Sheets(1).Cells(счСтроки,1).Value <>Неопределено Цикл
Стр=Док.Sheets(1).Cells(счСтроки,1).Value;
//Переменная для перемещения даты
день=день+1;
День1=день;

//создаем новую запись
НоваяСтрока=РегистрыСведений.Загрузка.СоздатьНаборЗаписей();
ЗагрузкаГостиницы=НоваяСтрока.Добавить();
ЗагрузкаГостиницы.Период=(ТекущаяДата()+(день1*24*60*60));
//Перебираем строку
Массив = Новый Массив(5);
Для Сч=1 По 5 Цикл
Позиция = Найти(Стр, "|");
Массив.Вставить(сч,Сред(Стр, 1, Позиция-1));
стр = Сред(Стр, Позиция + 1);
КонецЦикла;

//Берем данные
ЗагрузкаГостиницы.ЗагрузкаНомерногоФондаПроцент=Массив[4];
ЗагрузкаГостиницы.Дата=Массив[1];
// записываю
НоваяСтрока.Записать();

счСтроки = счСтроки + 1;

КонецЦикла;

Сообщить("Загрузка в регистр сведений завершена !!!");

//////////закрываем документ
Док.Application.Quit();

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

Вот результат: http://s020.radikal.ru/i708/1305/19/998a3c0b1a5b.jpg
Записывает только последнюю строку!!! Хотя ПЕРИОД я там беру дату и обхожу в цикле чтоб различная была...Записываю каждый элемент при обходе. Что не так ...
Заранее спасибо всем за внимание!