Как создать документ программы Microsoft Excel по оформлению, приведенному в другом документе?
---
```1c
    Попытка

    // Создать объект.
    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();
    КонецПопытки;
```
---
```1c
    Попытка

    // Создать объект.
    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();
    КонецПопытки;
```