Экспорт данных из 1С в Текстовой файл TXT, CSV

Процедура ВыполнитьЭкспорт(М)

     Т=СоздатьОбъект("Текст");

     //выборка

     М.ВыбратьСтроки();

     Пока М.ПолучитьСтроку()=1 Цикл

          Состояние("Экспорт: "+Цел(М.НомерСтроки/М.КоличествоСтрок()*100)+"%");

          тФирма=М.Фирма.ПолныйКод();

          тТовар=М.Товар.ПолныйКод();

          тСклад=М.Склад.ПолныйКод();

          тКоличество=М.Количество;

          тСумма=М.Сумма;

          Т.ДобавитьСтроку("Фирма="+ тФирма +";Товар="+ тТовар +";Склад="+ тСклад +";Количество="+ тКоличество +";Сумма="+ тСумма +";");    

     КонецЦикла;

     //файл

     Файл="export"+Формат(ДатаК,"Д ГГГГММДД")+".csv";

     Т.Записать(Файл);

     Сообщить("Файл с данными сохранен в каталоге экспортной БД: "+КаталогИБ()+Файл);

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