DELPHI中四种EXCEL访问技术实现

Posted on 2010-06-29 17:25  雅翔的天空  阅读(1681)  评论(0编辑  收藏  举报
DELPHI中四种EXCEL访问技术实现
发布者:秦方钰  发布时间:2007-7-24 21:26:00
内容摘要

EXCEL是制作中文报表的一个非常重要的工具,文章介绍并分析了包括ADO方式访问EXCEL文件、COM方式动态访问EXCEL文件、扩展OLEContainer方式访问EXCEL文件、DELPHI标准组件访问EXCEL文件在内的四种DELPHI实现的访问EXCEL文件的方法及实现代码。

正文
文字大小:

DELPHI中四种EXCEL访问技术实现

摘 要 EXCEL是制作中文报表的一个非常重要的工具,文章介绍并分析了包括ADO方式访问EXCEL文件、COM方式动态访问EXCEL文件、扩展OLEContainer方式访问EXCEL文件、DELPHI标准组件访问EXCEL文件在内的四种DELPHI实现的访问EXCEL文件的方法及实现代码。

关键词 EXCEL文件,ADO,COM

一、引言

EXCEL在处理中文报表时功能非常强大,EXCEL报表访问也是信息系统开发中的一个重要内容,本文总结以往开发中所用到的几中EXCEL文件访问方法,在实际工作中也得到了很好的验证,本文列举了其中四种方法的实例与读者共享,程序已在WINDOWS2000操作系统、OFFFICE2000应用软件和DELPHI7环境下调试通过。

二、ADO方式访问EXCEL文件

ADO方式访问EXCEL文件时,将EXCEL文件看作一个等同Oracle、MS SQLServer等数据库的一个ODBC数据源本文应用示例主要功能是打开EXCEL文件,并实现对EXCEL文件的编辑修改功能。实现过程及主要源代码如下:

1.在工程中新建窗口类TfrmADOEXCEL,在窗口中定义私有变量类型为TADOConnection的组件Conn,加入TADOTable组件ADOTabXLS、TDataSource组件DSXLS、TDBNavigator组件NavXLS 、TDBGrid组件GridXLS和TButton组件btnOpen,使用btnOpen可以打开EXCEL文件,使用NavXLS可以浏览编辑EXCEL文件数据。

2.编写btnOpen组件的OnClick事件。需要注意两点,Conn组件的Extend Properties属性要定义成excel 8.0,另外,EXCEL文件中的表单名“人员信息表”作为表明时要写成“[人员信息表$]”。

procedure TfrmADOEXCEL.btnOpenClick(Sender: TObject);

//打开EXCEL文件代码

begin

Conn:=TADOConnection.Create(nil);

Conn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFileDir(Application.ExeName)+'\PersonData.xls;Extended Properties=excel 8.0;Persist Security Info=False';

Conn.LoginPrompt:=false;

Conn.Connected:=true;

ADOTabXLS.Connection:=Conn;

ADOTabXLS.TableName:='['+'人员信息表'+'$]';

ADOTabXLS.Active:=true;

DSXLS.DataSet:=ADOTabXLS;

GridXLS.DataSource:=DSXLS;

except;

FreeAndNil(Conn);

end;

end;

三、COM方式动态访问EXCEL文件

COM方式动态访问EXCEL文件时,基本方法是利用组件复用技术调用Office软件平台提供的COM服务组件,充分利用COM组件提供的方法操纵EXCEL文件。本文应用示例简单演示了如何利用COM技术将DataSet数据集的数据输出到EXCEL文件。实现过程及主要源代码如下:

在工程中新建窗口类TfrmCOMEXCEL,在窗口中定义私有变量类型为TADOConnection的组件Conn,加入TADOTable组件ADOTabXLS和TButton组件btnOpen,使用btnOpen可以将数据输出到EXCEL文件。编写btnOpen组件的OnClick事件代码如下:

procedure TfrmCOMEXCEL.btnOpenClick(Sender: TObject);

var

XL: Variant; //打开EXCEL文件的Variant变量

Sheet: Variant;//指向EXCEL表单的Variant变量

RecNo,I: Integer;//记录数据表的当前记录号

begin

try

Conn:=TADOConnection.Create(nil);

Conn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFileDir(Application.ExeName)+'\PersonData.xls;Extended Properties=excel 8.0;Persist Security Info=False';

Conn.LoginPrompt:=false;

Conn.Connected:=true;

ADOTabXLS.Connection:=Conn;

ADOTabXLS.TableName:='[人员信息表$]';

ADOTabXLS.Active:=true;

except

FreeAndNil(Conn);

end;

XL := CreateOleObject('Excel.Application');

XL.Visible := true;

if FileExists(ExtractFileDir(Application.ExeName)+'\test.xls') then

begin

XL.WorkBooks.Open(ExtractFileDir(Application.ExeName)+'\test.xls');

end

else XL.WorkBooks.Add;

XL.WorkBooks[XL.WorkBooks.Count].WorkSheets[1].Name := 'test';

Sheet := XL.WorkBooks[XL.WorkBooks.Count].WorkSheets[Trim('test')];

RecNo := 1;

ADOTabXLS.First;

while not ADOTabXLS.Eof do

begin

for I := 0 to ADOTabXLS.FieldCount - 1 do

if not (ADOTabXLS.Fields[I].DataType in [ftBlob, ftGraphic,

ftParadoxOle, ftDBaseOle, ftTypedBinary,

ftReference, ftDataSet, ftOraBlob, ftOraClob, ftInterface,

ftIDispatch]) then

begin

Sheet.Cells.NumberFormat := '@';

Sheet.Cells[RecNo, I+1] := ADOTabXLS.Fields[I].AsString;

end;

Inc(RecNo);

ADOTabXLS.Next;

end;

try

XL.WorkBooks[XL.WorkBooks.Count].SaveAs(ExtractFileDir(Application.ExeName)+'\test.xls');

except ;

end;

end;

四、扩展OLEContainer方式访问EXCEL文件

在使用OLE方式访问EXCEL文件时,OLE容器在失去焦点会屏蔽正在访问的EXCEL文件操作;另外,使用in_place方式激活OLE容器时,会另外打开一个窗口,程序执行显得有些混乱,造成这些问题的主要原因是因为OLE容器响应了CM_UIDEACTIVATE消息,OLE容器不能始终保持激活状态。为此可将此消息结果使OLE容器始终处于激活状态。解决方法是重载OLE容器的CM_UIDEACTIVATE消息。在程序中临时创建重载后扩展OLE容器OLEContainerEx。代码如下:

type

TOleContainerEx=class(TOleContainer)

private

FJH: Boolean;

//重写CM_UIDEACTIVATE消息响应

procedure CMUIDeactivate(var Message: TMessage); message CM_UIDEACTIVATE;

published

property JH: Boolean read FJH write FJH;

end;

// 过程CMUIDeactivate的代码实现

procedure TOleContainerEx.CMUIDeactivate(var Message: TMessage);

begin

if not JH then

inherited;

end;

在使用TOLEContainerEx时,可采用临时创建的方式,也可进一步封装成可安装组建以便设计期使用。本文应用示例采用了临时创建的方式。在工程中新建窗口类TfrmEXOLEEXCEL,并定义Public变量 OleCon,类型为: TOleContainerEx;在窗口中定一个Tpanel类型组件panel1和Tbutton类型变量btnOpen,编写btnOpen的Click事件,主要源程序代码如下:

procedure TfrmEXOLEEXCEL.btnOpenClick(Sender: TObject);

begin

//创建并显示扩展OLE类组件

OleCon := TOleContainerEx.Create(nil);

OleCon.Parent := Panel1;

OleCon.Align:=alClient;

OleCon.allowactivedoc := true;

OleCon.AllowInPlace := True;

OleCon.AutoActivate := aaGetFocus;

OleCon.Anchors := [akTop,akLeft,akRight,akBottom];

OleCon.Visible := True;

OleCon.SizeMode := smClip;

OleCon.CreateObjectFromFile(ExtractFileDir(Application.ExeName)+

'\PersonData.xls',false);

TOleContainerEx(OleCon).JH := True;

OleCon.SetFocus;

end;

五、DELPHI标准组件访问EXCEL文件

Delphi中封装了一组Microsoft Office自动化对象(Automation servers)。它使得我们很容易地把Office中的应用程序(Excel等)当作一个COM应用服务器进行控制。使用这组VCL组件可以在设计时进行属性设置,也可以在运行时动态访问EXCEL。利用标准组件动态访问EXCEL文件时,充分利用VCL组件提供的方法操纵EXCEL文件。本文应用示例简单演示了如何利用VCL组件将DataSet数据集的数据输出到EXCEL文件。实现过程及主要源代码如下:

在工程中新建窗口类TfrmSTDCNTREXCEL,在窗口中加入TADOConnection组件ADOConnXLS,TADOTable组件ADOTabXLS、TButton组件btnOpen、TexcelApplication组件ExcelApplication1,TexcelWorkbook类组件ExcelWorkbook1和TExcelWorksheet1类组件ExcelWorksheet1,使用btnOpen可以将数据输出到EXCEL文件。编写btnOpen组件的OnClick事件代码如下。

procedure TfrmSTDCNTREXCEL.btnOpenClick(Sender: TObject);

var

aWorksheet: _WorkSheet;

tmpI,aRowIndex:integer;

aStr:string;

begin

ADOConnXLS.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFileDir(Application.ExeName)+'\PersonData.xls;Extended Properties=excel 8.0;Persist Security Info=False';

ADOConnXLS.LoginPrompt:=false;

ADOConnXLS.Connected:=true;

ADOTabXLS.Connection:=ADOConnXLS;

ADOTabXLS.TableName:='[人员信息表$]';

ADOTabXLS.Active:=true;

if ADOTabXLS.IsEmpty then exit;

Try

ExcelApplication1.Connect;

Except

MessageDlg('你还没有安装MicroSoft Excel,请先安装MicroSoft Excel!',mtError, [mbOk], 0);

Abort;

End;

ExcelApplication1.Visible[0]:=True;

ExcelApplication1.Caption := '新建EXCEL文件';

ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));

aWorksheet:=ExcelWorkbook1.WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;

ExcelWorkSheet1.ConnectTo(aWorksheet);

aRowIndex:=1;

while not ADOTabXLS.Eof do

begin

for tmpI:=0 to ADOTabXLS.FieldCount-1 do

ExcelWorksheet1.Cells.Item[aRowIndex,tmpI+1]:=ADOTabXLS.FieldList[tmpI].AsString;

aRowIndex:=aRowIndex+1;

ADOTabXLS.Next;

end;

//保存EXCEL文件,并关闭EXCEL应用程序

Try

aStr:=ExtractFileDir(Application.ExeName)+'\EXCEL文件.xls';

ExcelWorkbook1.SaveAs(aStr,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam ,

xlNoChange ,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);

ExcelWorksheet1.Disconnect;

ExcelWorkbook1.Disconnect;

ExcelApplication1.Disconnect;

ADOTabXLS.Active:=false;

ADOConnXLS.Connected:=false;

except

ExcelWorksheet1.Disconnect;

ExcelWorkbook1.Disconnect;

ExcelApplication1.Disconnect;

ADOTabXLS.Active:=false;

ADOConnXLS.Connected:=false;

End;

end;

六、总结

综上所讲,本文分别举例讨论了EXCEL文件访问的几种方法,包括ADO、COM、扩展OLEContainer和DELPHI标准组件方式。在实际应用过程中,这几种方法也各有特色。ADO方式访问EXCEL文件适用于以数据库访问方式维护EXCEL文件,COM方式动态访问编程设计与VBA访问接口方式相似,此种方法适用于EXCEL文件数据维护和复杂报表输出,扩展OLE方式访问EXCEL文件时能够保持EXCEL应用程序的友好界面,DELPHI标准组件访问方式与COM访问方式相似,但DELPHI对各类接口进行了更加友好的封装,在对COM方式不是很长熟悉的情况下,使用这种方式访问和输出数据到EXCEL文件非常有效。笔者结合自己的工作经历简单的总结了几种EXCEL文件的访问,在今后的工作中会进一步深入的研究总结。

Copyright © 2024 雅翔的天空
Powered by .NET 8.0 on Kubernetes