procedure TplExcelFormEx1.Button1Click(Sender: TObject);
var
  objExcelSheet : OleVariant;
  ExcelForm     : TplExcelFormEx;
begin
  //現在のブックの1番目のシートのオブジェクト
  objExcelSheet := xlfExcelBook.Worksheets[1];

  //エクセル操作フォームExを生成
  ExcelForm := TplExcelFormEx.Create(Self);
  ExcelForm.xlfBookFullPath := ExpandFileName('../Book2.xls');
  //グリッドライン等を表示
  ExcelForm.xlfDisplayGridLines    := True;
  ExcelForm.xlfDisplayWorkBookTabs := True;
  ExcelForm.xlfDisplayHeadings     := True;
  ExcelForm.PanelRight.Visible     := False;

  //表示してセルに値を代入
  ExcelForm.Show;
  ExcelForm.xlfCellValue['A3'] := 'ABC';
  ExcelForm.xlfBookSaved       := True;

  //次のような，プロセスを超えた操作はできない
  try
    objExcelSheet.Copy(Before := ExcelForm.xlfExcelBook.Worksheets[1]);
  except
  end;
end;

procedure TplExcelFormEx1.Button2Click(Sender: TObject);
var
  objExcelSheet : OleVariant;
  objExcelApp   : OleVariant;
  objExcelBook  : OleVariant;
begin
  //現在のブックの1番目のシートのオブジェクト
  objExcelSheet := xlfExcelBook.Worksheets[1];

  //新しく別のブックを開く
  //このブックがアクティブになる
  objExcelApp  := xlfExcelApp.Application;
  objExcelBook := objExcelApp.Workbooks.Open(ExpandFileName('../Book2'));
  objExcelBook.WorkSheets[1].Cells[3, 2].Value := 320;

  //指定時間後に，最初のブックの1番目のシートを新しいブックの1番目のシートの前に挿入
  Sleep(3000);
  objExcelSheet.copy(Before := objExcelBook.WorkSheets[1]);

  //指定時間後に保存しないで閉じる
  Sleep(3000);
  objExcelBook.Close(SaveChanges := False);
end;

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }

  end;

var
  Form1: TForm1;

implementation

uses ComObj;

{$R *.dfm}

//=============================================================================
//  複数のブックを表示
//  エクセル操作フォームを使用しない場合
//  TExcelApplicationを使用してもよいが，メソッド類の引数を省略したいので，最初
//  からCreateOleObjectを使用して，OleVariant型で扱うことにする
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  objExcelApp   : OleVariant;
  objExcelBook1 : OleVariant;
  objExcelBook2 : OleVariant;
  objExcelSheet : OleVariant;
begin
  objExcelApp   := CreateOleObject('Excel.Application');
  objExcelBook1 := objExcelApp.WorkBooks.Open(ExpandFileName('../Book1.xls'));
  objExcelSheet := objExcelBook1.WorkSheets[1];

  //生成したエクセルを表示
  //表示しなくても操作は可能
  objExcelApp.Visible := True;

  //指定時間後に別のブックを開く
  Sleep(3000);
  objExcelBook2 := objExcelApp.WorkBooks.Open(ExpandFileName('../Book2.xls'));

  //指定時間後に，最初のブックの1番目のシートを新しいブックの2番目のシートの前に挿入
  Sleep(3000);
  objExcelSheet.copy(Before := objExcelBook2.WorkSheets[2]);

  //指定時間後に保存しないで終了
  Sleep(3000);
  objExcelBook1.Saved := True;
  objExcelBook2.Saved := True;

  objExcelSheet := Unassigned;
  objExcelBook1.Close;
  objExcelBook2.Close;
  objExcelBook1 := unAssigned;
  objExcelBook2 := unAssigned;

  objExcelApp.Quit;
  objExcelApp := unAssigned;
end;

end.