Active Document + Excel + 1c8.2

Ниже привожу пример кода в 1С как использовать макеты Excel листов напрямую. редко но иногда использую. очень полезная штука.

ТабДок = Новый табличныйДокумент;
АктивныйДокумент = ПолучитьМакет("Макет");  //-- Макет 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;

[необходимо зарегистрироваться для просмотра ссылки]