Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:ACTIVEX    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  Delphi自动化控制Excel  
 
Delphi自动化控制Excel

如何控制Excel程序来输出数据,插入公式并根据数据画出图表来呢?Delphi 5 提供了一组封装了Office 97和Office 2000的控件,这组控件位于控件面板的Servers页面上,它可以极大地简化对Office的调用。不过糟糕的是,Borland并没有为这些控件提供使用帮助,但实际上使用这些控件是非常简单的,并且Office的对象体系也在Office的帮助中有着详细的说明。

  下面我们将编写一个程序来演示如何控制Excel来创建月份销售情况的报表和图表的。程序运行结果如图1.29所示。

连接Excel

  同Excel建立连接可以使用Connect 方法。控件由于某些原因可能同Excel无法建立连接,因此应该为连接代码建立一个异常处理,代码示意如下:

  try

   ExcelApplication1.Connect;

   except

   on E: Exception do

   begin

    E.Message := '无法连接Excel';

    Raise;

   end;

  end;

  ExcelApplication1.Visible[0] := True;

  建立连接的方式依赖于Server组件的两个重要属性:第一个是AutoConnect 属性,如果为True,表明程序启动后无须调用connect方法就能自动连接Excel;另一个属性是ConnectKind ,它决定了如何建立连接:ckRunningOrNew 表明首先尝试连接到一个当前的服务器上,如果服务器还没运行,则创建服务器的一个实例,然后连接。

  ckNewInstance 总是创建一个新的服务器实例,当我们希望不同用户之间保持相互独立的时候比较有用。

  ckRunningInstance 只同当前运行的服务器相连接。

  ckRemote 同一个由RemoteMachineName指定的远程机器上运行的服务器相连接。

  ckAttachToInterface 表示并不同服务器绑定,但程序使用ConnectTo方法提供一个接口。

  调用方法或设定Server控件的属性也能隐式地建立连接。比如设定Visible 属性为True就会自动建立连接,当然设定为True还会自动显示Excel的界面,如果我们不想显示Excel的界面,就可还是用前面的方法来建立连接。

  Server组件相互间还可以通过ConnectTo方法连接。下面的代码把ExcelWorkbook对象同一个ExcelApplication对象新创建的Workbook相连接:

  ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(Empty Param,0));

  ExcelWorkbook 对象可以直接同Add 方法的返回值相连接,这是因为引入Excel类型库文件时,Workbook的引用被修改为对ExcelWorkbook的引用。然而,一些返回对对象引用的属性或方法必须映射为正确的类型。比如下面代码把第一个WorkSheet的返回值映射为_Worksheet,然后同ExcelWorkSheet 组件相连接:

  ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _Worksheet);

向自动化服务器传递参数

  绝大多数的自动化服务器使用variant 作为参数类型。客户端使用Variant传递参数,而服务器会把参数转换为正确的数据类型。与一般数据类型相比,Variant 会占用更多的内存,运行更慢,但它比较灵活。而且,它允许不支持相同数据类型的程序同服务器进行通讯。对于未使用或是缺省的参数我们可以使用EmptyParam代表:

  ExcelApplication1.Workbooks.Add(EmptyParam, 0);

  另外,很多Excel的方法需要一个LCID 参数。这个参数代表语言支持,Locale ID可以用来抵消控制面板中区域设置强迫使用ID代表的语言。除非程序有国际化需求,否则我们通常使用0,它代表使用系统缺省的本地设置。

Excel的对象模型

  为了正确使用Excel Server组件,我们需要了解Excel的对象模型以及Excel的功能如何实现。Excel的对象模型可以从随Excel发布的帮助文件中找到(对于 Office 97来说是vbaxl8.hlp文件,对于Office 2000来说是vbaxl9.chm文件)。

  Application对象是Excel对象体系的最顶层,通过Application对象我们可以获得所有其他的Excel对象。Excel中的文档叫workbooks,一个workbook是一组worksheets和Sheets的集合。每个worksheet包含单元格来储存数据和公式。同时单元格还有相应的格式信息,比如字体颜色和布局等。Range 对象用来定义一个单元格或连续的单元格选区的范围。

  程序执行的顺序类似于用户界面操作的顺序。比如要想在单元格中输入文本,如同用户的操作一样,首先要打开Excel,然后使用当前workbook或新建一个。接着使用当前的worksheet或创建一个新的worksheet。最后,选择一个单元格,输入文本。

  这些步骤只使用ExcelApplication 组件就可以实现,但调用比较麻烦,而使用其他Sever组件配合ExcelApplication 组件会更容易。比如下面我们将讲解如何使用ExcelApplication、ExcelWorkbook和ExcelWorksheet 组件。

Workbooks和Worksheets

  有几种方式可以同workbook连接:调用一个已打开的workbook,创建一个新的workbook或打开一个先前已经保存了的 workbook。前面的例子使用Workbooks 对象创建了一个新的workbook并与之连接。而Excel中已打开的workbooks则可以通过名字、索引或ActiveWorkbook 属性来得到:

  ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);

  上面代码获得了当前激活的Workbook,而下面代码打开一个已保存的workbook并与之连接:

   ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open(

    'c:\code\excel\book1.xls', EmptyParam, EmptyParam, EmptyParam,

   EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,

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

  获取worksheets同上面类似。先前的例子显示了通过索引连接第一个worksheet,下面例子则演示如何通过名字连接worksheet:

  ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets['sheet1'] as _Worksheet);

输入数据和公式

  获得worksheet后,就可以在单元格中输入数据了。这里有很多输入数据到Excel中的方法。如果数据可以用ODBC读取的话, ExcelQueryTable 控件是最适合直接把数据输入worksheet中的。Excel还可以直接打开逗号分割的文件,所以也可以把数据写到文件中去,然后用Excel打开。对于少量的数据来说可以直接写到单元格中去。下面的代码是从演示程序中提取的,它遍历数据库,然后把销售日期写到第一列,把数量写到第二列。

  iRow := 1;

  while not Query1.Eof do begin

   ExcelWorksheet1.Cells.Item[iRow + 1,1] := Query1.FieldByName('SaleDate').AsString;

   ExcelWorksheet1.Cells.Item[iRow + 1,2] := FloatToStr(

   Query1.FieldByName('ItemsTotal').AsCurrency);

   ExcelWorksheet1.Cells.Item[iRow + 1,2].Style := 'currency';

   Inc(iRow);

   Query1.Next;

  end;

  公式的输入与此相类似,下面的代码把一个公式输入到第二列的底部来计算销售总和:

  ExcelWorksheet1.Cells.Item[iRow + 2,2] := '=SUM(B1:B' + IntToStr(iRow) + ')';

如何生成图表

  我们可以使用ExcelChart 组件来创建或修改图表,图表既可以嵌入在Sheet中,也可以是单独的图表Sheet。下面的代码使用Sheets对象来创建一个图表worksheet:

  ExcelChart1.ConnectTo(ExcelWorkbook1.Sheets.Add(EmptyParam,

   EmptyParam, 1, Variant(xlChart), 0) as _Chart)

  创建图表可以调用ChartWizard方法,下面的代码演示了如何使用这个方法。方法的第一个参数是包含源数据的range对象,range的第一列包含月份名,第二列对应相应月份的销售总和。PlotBy 属性设为xlRows而SeriesLabels属性设为1是因为数据是按列来打标签的。

  var

   oRange: Variant;

  begin

   // 定义数据源的范围

   oRange := ExcelWorksheet1.Range['A1', 'B13'];

   // 使用ChartWizard方法

   ExcelChart1.ChartWizard(

   oChartRange,  // 数据源

   Variant(xl3DColumn),  // Gallery类型图表

   4,  // 格式

   Variant(xlRows),  // 按列作图

   0,  // 分类标签

   1,  // Series标签

   True,  // 有插图

   'Monthly Sales',  // 标题

   'Month',   // 分类标题

   EmptyParam,  // 数值标题

   EmptyParam,  // 额外标题

   0);   // 语言代码

  end;

图1.30

  创建的图表如图1.30所示。

  ExcelChart 对象还提供了大量的事件,可以利用这些事件来开发交互式图表。演示程序中还提供了嵌入到Worksheet的图表的例子。

调用Excel 2000

  缺省条件下,Delphi中安装的Server组件是基于Office 97的,但是Office 2000是向后兼容的,所以也可以用来调用Office 2000。然而要想利用Excel 2000中的新特性的话,必须安装Excel 2000的server组件,由于Office 97和Office 2000的组件类使用相同的名字,所以两者不能同时安装。所以要想安装Office 2000的Server组件,首先要移去Office 97组件(DclAxServer50.bpl),然后添加/bin目录下的Dcloffice2k50.bpl包文件来注册Office 2000组件。

  Excel 2000的对象体系有很多变化,表现在引入的类型库从Office 97的1830KB增加到了4915KB。主要的新特性包括对ADO的直接支持、Office 2000 Web组件(允许电子表格和图表被保存为动态网页)以及网页脚本。

 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站