Экспорт в CSV

Работающий код для экспорта в csv

&НаСервере
Процедура ВыгрузитьНаСервере()

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

&НаКлиенте
Процедура Выгрузить(Команда) //кнопка
    ВыгрузитьВCSV("D:\Nomenklatura.csv");
КонецПроцедуры

Процедура ВыгрузитьВCSV(имяФайлаCSV);
          Разделитель = ";";
          ТаблицаЗначений = Получитьданные();
          Текст = СоздатьДанныеCSV(ТаблицаЗначений,разделитель);
          ЗаписатьCSV(текст,имяФайлаCSV);
КонецПроцедуры

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

Функция СоздатьДанныеCSV(ТаблицаЗначений,разделитель)
Текст="";
для каждого запись из ТаблицаЗначений Цикл

Текст = Текст + запись.Код + разделитель + запись.Наименование + Символы.ПС;
КонецЦикла;
Возврат текст;
КонецФункции

Процедура ЗаписатьCSV(текст,имяФайла)
          кодировка = КодировкаТекста.ANSI;
          ТекстовыйФайлЗапись = Новый ЗаписьТекста(имяФайла,Кодировка);
          ТекстовыйФайлЗапись.ЗаписатьСтроку(текст);
          ТекстовыйФайлЗапись.Закрыть();
КонецПроцедуры