Вход | Регистрация


выгрузка в excel

выгрузка в excel
Я
   Mr_Enot
 
12.04.17 - 16:04
Здрасте. надо выгрузить данные справочника в excel, а как сделать что бы часть данных из запроса отображалась на второй странице екселя?

Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса = 
    "//{{ЗАПРОС(Сформировать)

    |Период с ВыбНачПериода по ВыбКонПериода;
    |Контрагенты = Справочник.Контрагенты.ТекущийЭлемент;
    |AOGUID = Справочник.Контрагенты.AOGUID;
    |HOUSEGID = Справочник.Контрагенты.HOUSEGID;
    |Дом = Справочник.Контрагенты.Дом;
    |ПризнакСтроения = Справочник.Контрагенты.ПризнакСтроения;
    |УникальныйНомерДомаПомещенияКомнаты = Справочник.Контрагенты.УникальныйНомерДомаПомещенияКомнаты;
    |Квартира = Справочник.Контрагенты.Квартира;
    |ИдентификаторЖКУ = Справочник.Контрагенты.ИдентификаторЖКУ;
    |Группировка Контрагенты упорядочить по Контрагенты.Наименование, Контрагенты.HOUSEGID, Контрагенты.AOGUID, Контрагенты.Дом, Контрагенты.ПризнакВладения, Контрагенты.ПризнакСтроения, Контрагенты.УникальныйНомерДомаПомещенияКомнаты, Контрагенты.ИдентификаторЖКУ;
    |"//}}ЗАПРОС

    ;
    // Если ошибка в запросе, то выход из процедуры

    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;
      Эксель = СоздатьОбъект("Excel.Application");     
    Эксель.sheetsInNewWorkBook = 2;                  
    row = 2;                //строки 

   
    Книга = эксель.workbooks.add();                 
    эксель.Visible=1;                              
    Лист = Книга.worksheets(1);   

Пока Запрос.Группировка(1) = 1 Цикл 
             
 ТЗ=СоздатьОбъект("ТаблицаЗначений");
  ТЗ.НоваяКолонка("контрагент");
  ТЗ.НоваяСтрока();
  ТЗ.контрагент = запрос.контрагенты.наименование;
  ТЗ.HOUSEGID = запрос.контрагенты.НомерДома; 

 ТЗ.ВыбратьСтроки();   
    Пока ТЗ.ПолучитьСтроку()=1 Цикл
        лист.Cells(row,1).Value=ТЗ.контрагент;
        лист.Cells(row,2).Value=ТЗ.НомерДома;
 row=row+1;    
    конеццикла;
    конеццикла;
 
 
   Naf2017
 
1 - 12.04.17 - 16:20
Лист = Книга.worksheets(2);
   Mr_Enot
 
2 - 12.04.17 - 16:53
(1) спасибо

Список тем форума
Рекламное место пустует  Рекламное место пустует
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит Тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует