Delphi Programming / Object Pascal
  
[掲載 2002年01月16日] [更新 2016年05月04日] Excel出力コンポーネント |
Excel 出力コンポーネント
使用方法と再配布必要なランタイムライブラリ |
| 動作確認等 |
説明は Windows 7 U64(SP1) + Delphi XE(UP1) Pro で作成 |
以下は、Delphi に付属している DBDEMOS というデータベースを使用した例です。指定したフォルダにエクセルのブックを新規作成して、Sheet1 にデータを書込みます。
- 新規プロジェクトのフォームに下図のようにコントロールを配置
- Table1 のプロパティを設定
DatabaseName を DBDEMOS
TableName を customer.db
- 本コンポの DataSet を Table1 にする
- 本コンポをダブルクリックして、項目エディタで出力する項目を作成する
後は実行コードを作成して実行します。 |
 |
図1
コンポーネントを配置
- Delphi を起動
- From に TTable, TButton と本コンポを配置
|
 |
図2
項目エディタで追加した項目例
- Table1 を Active にする
- 本コンポをダブルクリック
- 項目を追加する
|
|
図3
項目エディタのプロパティ
|
 |
図4
実行結果例
|
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Open;
plXLSOut1.FileName := 'test.xls';
plXLSOut1.FileCreate := True;
plXLSOut1.AttribOut := True;
plXLSOut1.Excute;
Table1.Close;
end;
|
このコンポーネントは、開発時に Excel Creater Ver3.0 をインストールしないと使用できません。また作成したアプリケーションを配布する際には、付属のランタイムライブラリ XlsCrt2.DLL (再配布可能) が必要です。
ヘルプでは、この DLL は Windows のシステムフォルダに置くことになっていますが、EXE と同じフォルダ内に置けば動作するようです。
Excel Creator はコンポーネントにして利用することも可能です。コンポーネントの方が使い勝手はいいのですが、DLL をレジストリに登録しなければなりません。この登録には管理者権限が必要です。そのため API 関数を使用する方式としています。API 関数を使用する場合は、DLL が、システム的にパスの通った場所にあれば済みます。
|
| DataSet プロパティを設定しなくても、エクセルの高速操作用として利用できます。この場合、処理コードは OnBeforeEnd イベント内に書きます。 |
| Ver.9.00 で Delphi 2009 と Delphi 2010 に対応しましたが、Unicode 化したわけではありません。コンポーネント内部では AnsiString を使用しています。Excel Creator の API 関数の文字列引数に、Unicode 文字列を渡すと正常動作しません。そこで AnsiString を使用するようにしました。 |
| 添付のテストプログラムでは、BDE 経由で Paradox のデータを扱っています。BDE と Paradox については以下の記事を参考にしてください。 |
|