8.х Помогите оптеммизировать код плиз

Проблема в том что при компеляции выкидывает нехватка памяти((. Думаю дело в запросе.

Код:

Процедура СформироватьНажатие(Элемент)
 
    ЕксельФайл = Путь;
ТЗ = Новый ТаблицаЗначений; 
Разделитель = " "; 
ТабличноеПоле.Колонки.Очистить();
    ЭлементыФормы.ТабличноеПоле.СоздатьКолонки();
    Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
|    ПаспортныеДанныеФизЛиц.ФизЛицо.Наименование,
|    ПаспортныеДанныеФизЛиц.ФизЛицо.ДатаРождения,
|    ПаспортныеДанныеФизЛиц.ФизЛицо.МестоРождения,
|    ПаспортныеДанныеФизЛиц.ДокументСерия,
|    ПаспортныеДанныеФизЛиц.ДокументНомер,
|    ПаспортныеДанныеФизЛиц.ДокументДатаВыдачи,
|    ПаспортныеДанныеФизЛиц.ДокументКемВыдан,
|    КонтактнаяИнформация.Представление
|ИЗ
|    РегистрСведений.ПаспортныеДанныеФизЛиц КАК ПаспортныеДанныеФизЛиц,
|    РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация";
;
РезультатЗапроса = Запрос.Выполнить();
Выбрать=РезультатЗапроса.Выбрать();
ТЗ.Колонки.Добавить("Фамилия");
ТЗ.Колонки.Добавить("Имя");
ТЗ.Колонки.Добавить("Отчество");
ТЗ.Колонки.Добавить("Номер_паспорта");
ТЗ.Колонки.Добавить("Когда_и_кем_выдан_паспорт");
ТЗ.Колонки.Добавить("Дата_рождения");
ТЗ.Колонки.Добавить("МестоРождения");
ТЗ.Колонки.Добавить("Адрес");
Пока Выбрать.Следующий() Цикл
 
РазбитаяСтрока = СтрЗаменить(Выбрать.ФизлицоНаименование, Разделитель, Символы.ПС);
Фамилия = СтрПолучитьСтроку(РазбитаяСтрока, 1);
Имя = СтрПолучитьСтроку(РазбитаяСтрока, 2);
Отчество = СтрПолучитьСтроку(РазбитаяСтрока, 3);
    НоваяСтрока = ТЗ.Добавить();
    НоваяСтрока.Фамилия = Фамилия;
    НоваяСтрока.Имя = Имя;
    НоваяСтрока.Отчество = Отчество;
    НоваяСтрока.Номер_паспорта = Выбрать.ДокументСерия +" "+ Выбрать.ДокументНомер;
    НоваяСтрока.Когда_и_кем_выдан_паспорт = формат(Выбрать.ДокументДатаВыдачи, "ДФ=дд.ММ.гггг") +" "+ Выбрать.ДокументКемВыдан;
    НоваяСтрока.Дата_рождения = формат(Выбрать.ФизлицоДатаРождения, "ДФ=дд.ММ.гггг");
    НоваяСтрока.МестоРождения = Сред(Выбрать.физлицоМестоРождения,2);
      НоваяСтрока.Адрес= Выбрать.Представление;
КонецЦикла;
     ЭлементыФормы.ТабличноеПоле.Значение = ТЗ;
    ЭлементыФормы.ТабличноеПоле.СоздатьКолонки();
 
 
        Сообщить("Данные обработаны");
 
КонецПроцедуры

Сп попробую

Сп тема закрыта
Сделал так
Запрос.Текст = "ВЫБРАТЬ
| КонтактнаяИнформация.Представление,
| ПаспортныеДанныеФизЛиц.ДокументСерия,
| ПаспортныеДанныеФизЛиц.ДокументНомер,
| ПаспортныеДанныеФизЛиц.ДокументДатаВыдачи,
| ПаспортныеДанныеФизЛиц.ДокументКемВыдан,
| ПаспортныеДанныеФизЛиц.ФизЛицо.Ссылка
|ИЗ
| РегистрСведений.ПаспортныеДанныеФизЛиц КАК ПаспортныеДанныеФизЛиц
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
| ПО ПаспортныеДанныеФизЛиц.ФизЛицо = КонтактнаяИнформация.Объект";

попробую))) извини Draco а вы не знаете как выгрузить из Табличного Поля данные в Exel?