Импорт данных из Excel в Регистр сведений (переодический)

Есть такая обработка которая считывает данные из excel записывает их во временную таблицу значения и потом от туда в регистр сведений (периодический). В результате записывается только одна запись (строка) в регистр а нужно чтобы записывались все записи из временной таблицы куда помещены данные из excel.

Вопрос: как можно доработать код чтобы записывались все записи из ТЗ? Заранее спасибо!

&НаСервере
Функция ИмпортИзExcelНаСервере()

    Если ПустаяСтрока(ИмяФайла) Тогда
        Сообщить("Для запуска обработки необходимо предварительно выбрать файл Microsoft Excel.");
    КонецЕсли;

    Попытка
        ExcelПриложение = Новый COMОбъект("Excel.Application");
    Исключение
        Сообщить("Ошибка при загрузке Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
    КонецПопытки;

    Попытка
        ExcelФайл = ExcelПриложение.WorkBooks.Open(ИмяФайла);
    Исключение
        Сообщить("Ошибка открытия файла Microsoft Excel." + ИмяФайла + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
    КонецПопытки;

    Попытка
        Excel = ExcelФайл.Sheets(1);
        xlCellTypeLastCell = 11;
        ExcelПоследняяСтрока = Excel.Cells.SpecialCells(xlCellTypeLastCell).Row;
        ExcelПоследняяКолонка = Excel.Cells.SpecialCells(xlCellTypeLastCell).Column;
    Исключение
        Сообщить("Ошибка открытия листа №1 Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
        ExcelПриложение.Quit();
    КонецПопытки;

    ТЗ = Новый ТаблицаЗначений;
    ТЗ.Очистить();
    ТЗ.Колонки.Добавить("Код");
    ТЗ.Колонки.Добавить("Фамилия");
    ТЗ.Колонки.Добавить("Имя");
    ТЗ.Колонки.Добавить("Страна");
    ТЗ.Колонки.Добавить("Вопрос_1");
    ТЗ.Колонки.Добавить("Он");
    ТЗ.Колонки.Добавить("Оно");
    ТЗ.Колонки.Добавить("Она");
    ТЗ.Колонки.Добавить("Другое");

    Для Строка = 3 По ExcelПоследняяСтрока Цикл

        Стр = ТЗ.Добавить();

        Стр.Код       = СокрЛП(Excel.Cells(Строка,1).Value);
        Стр.Фамилия   = СокрЛП(Excel.Cells(Строка,2).Value);
        Стр.Имя       = СокрЛП(Excel.Cells(Строка,3).Value);
        Стр.Страна    = СокрЛП(Excel.Cells(Строка,4).Value);
        Стр.Вопрос_1  = СокрЛП(Excel.Cells(Строка,5).Value);
        Стр.Он        = СокрЛП(Excel.Cells(Строка,6).Value);
        Стр.Оно       = СокрЛП(Excel.Cells(Строка,7).Value);
        Стр.Она       = СокрЛП(Excel.Cells(Строка,8).Value);
        Стр.Другое    = СокрЛП(Excel.Cells(Строка,9).Value);

    КонецЦикла;

    ExcelПриложение.Quit();

    Для Каждого  СтрокаТаблицы Из ТЗ Цикл
       НаборДанных = РегистрыСведений.Проба.СоздатьНаборЗаписей();
       Проба = НаборДанных.Добавить();
       Проба.Код = СтрокаТаблицы.Код;
       Проба.Фамилия = СтрокаТаблицы.Фамилия;
       //...
       НаборДанных.Записать();
    КонецЕсли;

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