unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, CREATOROCXLib_TLB, StdCtrls, ExtCtrls, OleServer;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Panel2: TPanel;
    Xls1: TXls;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private 宣言 }
    FFileName : String;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  フォーム表示開始時の処理
//
//  Excel Creator3.0がインストールされている必要がある
//  コンポーネントを配置
//
//  プロパティやメソッドはExcel Creator3.0のActiveXのヘルプで確認できる
//  セルの指定にはCell2,Pos2プロパティを使用する
//=============================================================================
procedure TForm1.FormShow(Sender: TObject);
begin
  //ブックを新規に作成
  FFileName := ExtractFilePath(Application.ExeName) + 'Testbook.xls';
  if not FileExists(FFileName) then begin
    Xls1.CreateBook(FFileName, ver97, 3);
    Xls1.CloseBook;
  end;
end;

//=============================================================================
//  セルに値を設定　A1形式
//  Cell2の第3,4引数は元のセルに対する相対移動量
//  ここではA2そのものを対象とする
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  ASheetName : String;
begin
  try
    Xls1.OpenBook(FFileName);
    Xls1.SheetNo := 2;

    //指定セルに整数値を書込み
    Xls1.Cell2['A2', 0, 0].Long := 1500;
    ASheetName := Xls1.SheetName2[2];

    Panel1.Caption := '3 番目のシート名は ' + ASheetName;
    Panel2.Caption := '';
  except
    //ブックや該当シートが存在しない場合等
  end;
  Xls1.CloseBook(True);
end;

//=============================================================================
//  セルに値を設定
//  日時の場合で，文字色と背景色も指定
//  Pos2は列,行の番号で指定する(0が左端の列と行)
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  APos : IExcelCrtOcx;
begin
  try
    Xls1.OpenBook(FFileName);
    Xls1.SheetNo := 2;

    //セルに書式を指定して実数値を書込む
    APos := Xls1.Pos2[1, 3, 1, 3];
    APos.Double    := VarToDateTime('2005/10/2 20:23:10');
    APos.Format    := 'yyyy年mm月dd日　hh時mm分ss秒';
    APos.FontColor := xcBlack;
    //淡い水色
    APos.BackColor := 27;
  except
    //ブックや該当シートが存在しない場合等
  end;
  Xls1.CloseBook(True);
end;

//=============================================================================
//  セルの値を取得
//  Button1クリックで設定した値を取得
//=============================================================================
procedure TForm1.Button3Click(Sender: TObject);
begin
  try
    Xls1.OpenBook(FFileName);
    Xls1.SheetNo := 2;

    //数値として取得
    Panel1.Caption := IntToStr(Xls1.Cell2['A2', 0, 0].Long);
    //文字列として取得
    Panel2.Caption := Xls1.Cell2['A2', 0, 0].Str;
  except
    //ブックや該当シートが存在しない場合等
  end;
  Xls1.CloseBook(True);
end;

end.