Delphi自动化控制Excel

  1. Delphi自动化控制Excel
    日期:2005年3月4日 作者:转自哈巴狗的小窝 人气:<script src="../Hits.asp?ArticleID=418" type="text/javascript"> </script> 151 查看:[大字体 中字体 小字体]
    <script src="../js/article_zt.js" type="text/javascript"> </script>企商在线老牌虚拟主机商 购主机送鼠标 送U盘送30G移动硬盘!
    <script src="../js/softview_468x60.js" type="text/javascript"> </script> id="google_468" marginwidth="0" marginheight="0" src="../_google_468.htm" frameborder="0" width="468" scrolling="no" height="60">
    如何控制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组件(允许电子表格和图表被保存为动态网页)以及网页脚
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值