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

Метод Add коллекции WorkBooks позволяет создать новую рабочую книгу. При этом если аргументом метода будет строка, указывающая на файл шаблона, то новая книга будет создана на основе этого шаблона. Если аргументов нет, то будет создана обычная книга в режиме "по умолчанию". Создадим новую книгу в режиме по умолчанию с помощью следующей процедуры.

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

Результат выполнения данной процедуры представлен на рисунке 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;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button2Click(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;

end.

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

После того как мы создали новую рабочую книгу, значение свойства Count коллекции WorkBooks увеличилось на единицу, а объект Item(1) содержит ссылку на созданную рабочую книгу.

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

Предыдущий шаг Содержание Следующий шаг