Выгрузить из ТабДок в EXEL

&НаСервере
Функция ZUPВыгрузитьEXELВместоНаСервере(ТабДок)
    
    ТабДок = Новый ТабличныйДокумент;
    
   Запрос = Новый Запрос;
   Запрос.Текст = 
      "ВЫБРАТЬ
      |   ВедомостьНаВыплатуЗарплатыВБанкЗарплата.ФизическоеЛицо.Фамилия КАК Фамилия,
      |   ВедомостьНаВыплатуЗарплатыВБанкЗарплата.ФизическоеЛицо.Имя КАК Имя,
      |   ВедомостьНаВыплатуЗарплатыВБанкЗарплата.ФизическоеЛицо.Отчество КАК Отчество,
      |   ВедомостьНаВыплатуЗарплатыВБанкЗарплата.ФизическоеЛицо.ДатаРождения КАК ДатаРождения,
      |   ВедомостьНаВыплатуЗарплатыВБанкЗарплата.НомерЛицевогоСчета КАК Счета,
      |   ВедомостьНаВыплатуЗарплатыВБанкЗарплата.КВыплате КАК Сумма,
      |   ВедомостьНаВыплатуЗарплатыВБанкЗарплата.Ссылка.Дата КАК Дата
      |ИЗ
      |   Документ.ВедомостьНаВыплатуЗарплатыВБанк.Зарплата КАК ВедомостьНаВыплатуЗарплатыВБанкЗарплата
      |ГДЕ
      |   ВедомостьНаВыплатуЗарплатыВБанкЗарплата.Ссылка = &Ссылка";
   
   Запрос.УстановитьПараметр("Ссылка",Объект.Ссылка);
   
    РезультатЗапроса = Запрос.Выполнить().Выбрать();
   СЧ = 2;    
    
    Пока РезультатЗапроса.Следующий() Цикл
        ТабДок.Область("R"+СЧ+"C1").Текст = РезультатЗапроса.Фамилия;
        ТабДок.Область("R"+СЧ+"C2").Текст = РезультатЗапроса.Имя;
        ТабДок.Область("R"+СЧ+"C3").Текст = РезультатЗапроса.Отчество;
        ТабДок.Область("R"+СЧ+"C4").Текст = РезультатЗапроса.ДатаРождения;
        ТабДок.Область("R"+СЧ+"C5").Текст = РезультатЗапроса.Счета;
        ТабДок.Область("R"+СЧ+"C6").Текст = РезультатЗапроса.Сумма;
      ТабДок.Область("R"+СЧ+"C7").Текст = РезультатЗапроса.Дата;

        СЧ = СЧ + 1;
    КонецЦикла;
    Рамка = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1); 
    Возврат ТабДок;
КонецФункции

&НаКлиенте
Процедура ZUPВыгрузитьEXELВместо1(Команда)
    
    ТабДок = Новый ТабличныйДокумент;
    ZUPВыгрузитьEXELВместоНаСервере(ТабДок);
   
   
   
   ТабДок.ОтображатьСетку = Истина;
   ТабДок.Показать();
    
КонецПроцедуры