Создадим рабочую книгу по шаблону с помощью метода Add, в качестве
аргумента которого используем или целочисленную константу, или строку,
указывающую на файл шаблона. В качестве примера рассмотрим следующие
процедуры, созданные в среде Delphi. В первом случае аргументом метода
Add служит константа, в результате чего создается лист с диаграммой, во
втором случае в качестве шаблона используем один из стандартных шабло-
нов MS Office.
Создание рабочей книги на основе шаблона
procedure TForml.Button5Click(Sender: TObject);
const xlWBATChart=-4109;
begin
E.WorkBooks.add(xlWBATChart);
end;
procedure TForml.Button5Click(Sender: TObject);
begin
i f not OpenDialogl.Execute then exit;
E.WorkBooks.add(OpenDialogl.FileName);
end;
При выполнении второй процедуры нужно выбрать в специальном окне
(рис. 11.3) файл с расширением XLT из стандартной поставки MS Office.
Новая рабочая книга будет создана на основе выбранного шаблона (рис. 11.4).
Рис. 11.3. Выбираем шаблон для создания книги |