Delphi功能强大，常被选择用来开发数据库管理软件的首选工具。在开发数据库管理软件时，经常涉及到报表的制作与输出。而Excel又特别擅长于报表和数据处理，且Excel能为Delphi或其他应用程序通过OLE所控制，因此，我们可以通过OLE向Excel传数据，作为数据库管理软件中，制作报表的又一范例。
首先，我们来了解一下Excel的自动化对象，Excel有一个Application对象，一个WorkBook对象，一个Range对象和一个Sheet对象，当然你可以从MicroSoft Excel Visual Basic的帮助中了解更多的内容，因此，我们可以从Delphi的应用程序中通过OLE轻松的使用Excel的优点。
由于,Delphi无法对某个OLE方法或属性的调用进行运行时的语法检查。例如：以下这段代码，虽然Delphi可以对它进行成功的编译，但在运行时它却不能被正确的执行，因为在Excel Basic中没有FormatDriveC这个函数：
var
V:variant;Begin
V:=CreateOleObject(‘Excel.Application’)
V.FormatDriveC;End;
以下为一个例子，说明如何使用Delphi将数据表中的数据传送给Excel的。
注意：运行本程序，你的机器中必须已经安装了Excel。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,olectnrs,
StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, Db, DBTables,ComObj;
type
TMainForm = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
Panel1: TPanel;
DBGrid1: TDBGrid;
Panel2: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
CheckBox1: TCheckBox;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
procedure TMainForm.BitBtn2Click(Sender: TObject);begin
close;end;
procedure TMainForm.BitBtn1Click(Sender: TObject);var
v:variant;
s:string;
i,j:integer;begin
s:="c:\gz\example.xls"; //文件名
if fileexists(s) then deletefile(s);
v:=CreateOLEObject("Excel.Application"); //建立OLE对象
V.WorkBooks.Add;
if Checkbox1.Checked then
begin
V.Visible:=True;
MainForm.WindowState:=wsMinimized;
//使Excel可见，并将本程序最小化，以观察Excel的运行情况
end else
begin
V.Visible:=False;
end;
//使Excel窗口不可见
Application.BringToFront; //程序前置
try
try
Cursor:=crSQLWait;
Table1.DisableControls;
For i:=0 to Table1.FieldCount-1 do //字段数
//注意：Delphi中的数组的下标是从0开始的，
// 而Excel的表格是从1开始编号
begin
V.Goto("R1"+"C"+IntToStr(i+1)); //Excel的表格是从1开始编号
V.ActiveCell.FormulaR1C1:=Table1.Fields[i].FieldName;//传送字段名
end;
j:=2;
Table1.First;
while not Table1.EOF do
begin
For i:=0 to Table1.FieldCount-1 do //字段数
begin
V.Goto("R"+IntToStr(j)+"C"+IntToStr(i+1));
V.ActiveCell.FormulaR1C1:=Table1.Fields[i].AsString;//传送内容
end;
Table1.Next;
j:=j+1;
end;
V.ActiveSheet.Protect(DrawingObjects:=True, Contents:=True, Scenarios:=True);//设置保护
ShowMessage("数据库到Excel的数据传输完毕!");
v.ActiveWorkBook.Saveas(filename:=s);//文件存盘
except //发生错误时
ShowMessage("没有发现Excel!");
end;
finally
Cursor:=crDefault;
Table1.First;
Table1.EnableControls;
v.quit; //退出OLE对象
MainForm.WindowState:=wsNormal;
end;end;
procedure TMainForm.FormShow(Sender: TObject);begin
Table1.Open;end;
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);begin
Table1.Close;end;
procedure TMainForm.FormCreate(Sender: TObject);var
sl:TStringList; {字符串列表变量}
i:Integer;begin
sl:=TStringlist.Create;
Session.GetAliasNames(sl); {取得别名列表}
if (sl.IndexOf("EXAMPLE")=-1) then {判断别名是否存在}
begin
i:=Application.MessageBox("别名EXAMPLE不存在，现在创建吗？","BDE信息窗口",mb_OKCancel);
{增加一个名为EXAMPLE的数据库别名}
if i=IDCANCEL then begin
sl.Free;
Application.Terminate; //程序终止
end;
Session.AddStandardAlias("EXAMPLE","C:\GZ","Paradox"); //增加别名
Session.SaveConfigFile; {BDE配置文件存盘}
end ;end;
end.执行本程序，就把数据表中内容输出到C:\GZ下的example.xls文件中了，你可以用Excel对本文件进行编辑等操作。
本程序只要拷贝到C:\GZ下运行即可，程序判断后自动增加数据库别名。
本文只是对Delphi中OLE的简单认识，程序的功能比较简单，当然你可以增加别的内容，以丰富本程序，如：可以增加选取数据库别名，再从别名中选取任何数据表，以增加程序的通用性，或者在程序中使用Excel的函数等。
|
