Каталог решений - Active Document + Excel + 1c8.2

Редко, но иногда использую — очень полезная штука.

ТабДок = Новый табличныйДокумент;
АктивныйДокумент = ПолучитьМакет("Макет");  //-- Макет Active Document лист Ексель.

КомОбъект = АктивныйДокумент.Получить();

//--- далее пишем в Cells(НомерСтроки, НомерСтолбца). Value  все что нужно. см.пример ниже 

КомОбъект.ActiveSheet.Cells(6,1).Value=сокрлп(ТекДокумент.Организация);
КомОбъект.ActiveSheet.Cells(8,1).Value=сокрлп(ТекДокумент.Подразделение);

КомОбъект.ActiveSheet.Cells(15,35).Value=сокрлп(ТекДокумент.Номер);
КомОбъект.ActiveSheet.Cells(15,43).Value=сокрлп(формат(ТекДокумент.Дата, "ДФ=dd.MM.yyyy"));
  
// строчки
Для Каждого СТР ИЗ ТекДокумент.Материалы Цикл

    Если Лев(сокрлп(стр.Счет), 2) = "20" Тогда

        КомОбъект.ActiveSheet.Cells(28,1).Value=сокрлп(стр.Номенклатура);
        КомОбъект.ActiveSheet.Cells(28,23).Value=сокрлп(стр.Цена);
        КомОбъект.ActiveSheet.Cells(28,27).Value=сокрлп(стр.Количество);
        КомОбъект.ActiveSheet.Cells(28,30).Value=сокрлп(стр.Сумма);

    Иначе

        КомОбъект.ActiveSheet.Cells(Ном,34).Value=сокрлп(стр.Номенклатура);
        КомОбъект.ActiveSheet.Cells(Ном,62).Value=сокрлп(стр.Цена);
        КомОбъект.ActiveSheet.Cells(Ном,66).Value=сокрлп(стр.Количество);
        КомОбъект.ActiveSheet.Cells(Ном,70).Value=сокрлп(стр.Сумма);
        Ном = Ном +1;
    КонецЕсли;

КонецЦикла;
// ну и напоследок отображает открытую книгу Ексель. 

КомОбъект.Application.Visible = 1;
КомОбъект.Windows(1).Visible = 1;