Работа с объектом Excel.Application. Создание рабочей книги на основе шаблона

   
На этом шаге мы рассмотрим создание рабочей книги на основе шаблона.

   
Создадим рабочую книгу по шаблону с помощью метода Add, в качестве аргумента которого используем или
целочисленную константу, или строку, указывающую на файл шаблона. В качестве примера рассмотрим следующие
процедуры, созданные в среде Delphi.

procedure TForm1.Button3Click(Sender: TObject);
//Создание рабочей книги на основе шаблона 1
const
  xlWBATChart=-4109;
begin
  E.WorkBooks.add(xlWBATChart);
end;

procedure TForm1.Button4Click(Sender: TObject);
//Создание рабочей книги на основе шаблона 2
begin
  if OpenDialog1.Execute then
    E.WorkBooks.add(OpenDialog1.FileName);
end;

   
В первом случае аргументом метода Add служит константа, в результате чего создается лист с диаграммой, во
втором случае в качестве шаблона используем один из стандартных шаблонов MS Office.

   
При выполнении второй процедуры нужно выбрать в специальном окне файл с расширением XLT из
стандартной поставки MS Office. Новая рабочая книга будет создана на основе выбранного шаблона (рисунок 1).


Рис.1. Результат работы приложения

   
Приведем полный текст приложения.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComObj;

type
  TForm1 = class(TForm)
    Button1: TButton;
    CheckBox1: TCheckBox;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  E:variant;

procedure TForm1.Button1Click(Sender: TObject);
//Создание объекта Excel.Application
begin
  E:=CreateOleObject('Excel.Application');
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
//Отображение окна приложения Excel
begin
  E.Visible:=CheckBox1.Checked;
end;

procedure TForm1.Button2Click(Sender: TObject);
//Создание рабочей книги по умолчанию
begin
  E.WorkBooks.Add;
end;

procedure TForm1.Button3Click(Sender: TObject);
//Создание рабочей книги на основе шаблона 1
const
  xlWBATChart=-4109;
begin
  E.WorkBooks.add(xlWBATChart);
end;

procedure TForm1.Button4Click(Sender: TObject);
//Создание рабочей книги на основе шаблона 2
begin
  if OpenDialog1.Execute then
    E.WorkBooks.add(OpenDialog1.FileName);
end;

end.

Текст этого приложения можно взять здесь (6,0 Кб).

   
На следующем шаге мы рассмотрим открытие существующей рабочей книги.



Вы можете оставить комментарий, или Трекбэк с вашего сайта.

Оставить комментарий