一、引言 EXCEL在处理中文报表时功能非常强大,EXCEL报表访问也是信息系统开发中的一个重要内容,本文总结以往开发中所用到的几中EXCEL文件访问方法,在实际工作中也得到了很好的验证,本文列举了其中四种方法的实例与读者共享,程序已在WINDOWS2000操作系统、OFFFICE2000应用软件和DELPHI7环境下调试通过。 二、ADO方式访问EXCEL文件 ADO方式访问EXCEL文件时,将EXCEL文件看作一个等同Oracle、MS SQLServer等数据库的一个ODBC数据源本文应用示例主要功能是打开EXCEL文件,并实现对EXCEL文件的编辑修改功能。实现过程及主要源代码如下: .在工程中新建窗口类TfrmADOEXCEL,在窗口中定义私有变量类型为TADOConnection的组件Conn,加入TADOTable组件ADOTabXLS、TDataSource组件DSXLS、TDBNavigator组件NavXLS 、TDBGrid组件GridXLS和TButton组件btnOpen,使用btnOpen可以打开EXCEL文件,使用NavXLS可以浏览编辑EXCEL文件数据。 .编写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 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[].Name := 'test'; Sheet := XL.WorkBooks[XL.WorkBooks.Count].WorkSheets[Trim('test')]; RecNo := ; ADOTabXLS.First; while not ADOTabXLS.Eof do begin for I := to ADOTabXLS.FieldCount - 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+] := 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], ); Abort; End; ExcelApplication1.Visible[]:=True; ExcelApplication1.Caption := '新建EXCEL文件'; ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,)); aWorksheet:=ExcelWorkbook1.WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,) as _WorkSheet; ExcelWorkSheet1.ConnectTo(aWorksheet); aRowIndex:=; while not ADOTabXLS.Eof do begin for tmpI:= to ADOTabXLS.FieldCount- do ExcelWorksheet1.Cells.Item[aRowIndex,tmpI+]:=ADOTabXLS.FieldList[tmpI].AsString; aRowIndex:=aRowIndex+; 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,); 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文件非常有效。