Попытка 
      // Создать объект. 
    Excel = Новый COMОбъект("Excel.Application"); 
Исключение 
    Сообщить("Не удалось инициализировать Excel"); 
 Возврат; 
КонецПопытки; 
Попытка 
    // Если при отработке следующего фрагмента кода произойдет ошибка объект "Excel.Application" будет закрыт. 
    // Открыть книгу, содержащую шаблон оформления. 
       Excel.Workbooks.Open("c:\doc.xls"); 
  НомерКниги = Excel.Workbooks.Count; 
    Книга = Excel.Workbooks.Item(НомерКниги); 
    Лист = Excel.ActiveSheet; 
   // Создать новую книгу (в нее будем записывать данные). 
       Excel.Application.Workbooks.Add(1); 
     НомерКниги = Excel.Workbooks.Count; 
    КнигаНовая = Excel.Workbooks.Item(НомерКниги); 
       ЛистНовый = Excel.ActiveSheet; 
      // Установить ширину колонки в новой книге. 
   ЛистНовый.Columns("B").ColumnWidth = 40; 
   // Копировать область из книги-шаблона в новую книгу. 
 Лист.Range("Шапка").Copy(ЛистНовый.Range("A1:E3")); 
    ЛистНовый.Cells(1, 1).Value = "Наименование контрагента"; 
        // Считаем, что в нашем случае необходимо сформировать только две строки табличной части 
      Для НомерСтроки = 1 По 2 Цикл 
                Лист.Range("Строка").Copy(ЛистНовый.Range(ЛистНовый.Cells(3 + НомерСтроки,1), ЛистНовый.Cells(3 + НомерСтроки, 5))); 
             // Записать значение в ячейку листа новой таблицы 
             // в реальном примере данные будут браться из информационной базы 
             ЛистНовый.Cells(3 + НомерСтроки, 1).Value = НомерСтроки; 
         ЛистНовый.Cells(3 + НомерСтроки, 2).Value = "Наименование номенклатурной позиции " + Строка(НомерСтроки); 
            ЛистНовый.Cells(3 + НомерСтроки, 3).Value = НомерСтроки; 
         ЛистНовый.Cells(3 + НомерСтроки, 4).Value = НомерСтроки; 
         ЛистНовый.Cells(3 + НомерСтроки, 5).Value = НомерСтроки; 
 КонецЦикла; 
      Excel.Visible = Истина; 
Исключение 
    Сообщить(ОписаниеОшибки()); 
       Excel.Quit(); 
КонецПопытки;