Запис в Excel

14.02.2018

1C 8.3

    //Ексель
    Excel = Новый COMОбъект("Excel.Application");
    Книга = Excel.WorkBooks.Open("D:\template.xlsx");
    Лист  = Книга.Sheets(1);
		
    РядокЗапису = 2;
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |	Номенклатура.Ссылка,
    |	Номенклатура.НаименованиеПолное,
    |	Номенклатура.Код КАК Код,
    |	Номенклатура.Наименование
    |ИЗ
    |	Справочник.Номенклатура КАК Номенклатура
    |
    |УПОРЯДОЧИТЬ ПО
    |	Код"
		  
    РезультатЗапроса = Запрос.Выполнить();		
    Выборка = РезультатЗапроса.Выбрать();	
    Пока Выборка.Следующий() Цикл
			
        Лист.Cells(РядокЗапису,  1).Value = Выборка.Код;
        Лист.Cells(РядокЗапису,  2).Value = Выборка.Наименование;
        Лист.Cells(РядокЗапису,  3).Value = Выборка.НаименованиеПолное;
			
        РядокЗапису = РядокЗапису + 1;
      
    КонецЦикла;
		
    НазваТимчасовогоФайлу = "D:\" + Новый УникальныйИдентификатор + ".xlsx";
    
    //Запис
    Excel.ActiveWorkBook.SaveAs(НазваТимчасовогоФайлу);
		
    Excel.DisplayAlerts = 0;
    Книга.Close();
    Excel.Quit();
    Excel.DisplayAlerts = 1;
    Excel = Неопределено;