我要投稿
  • 您当前的位置:57365.com -> 技术教程 -> 软件开发教程 -> Delphi教程 -> 教程内容
  • [ 收藏本页教程 ]
  • 浅谈Delphi如何控制Excel操作Delphi教程

    教程作者:佚名    教程来源:不详   教程栏目:Delphi教程    收藏本页
     
    1 创建Excel文件

      要在Delphi中控制Excel,就必须用到OLE自动化。现在一般采用OLE2来创建OLE对象,当激活一个OLE对象时,服务器程序仅在容器程序内部激活,这就是所谓的“就地激活”(in-place activation)。

      创建Excel文件时,先创建一个OLE对象,然后在对象中建立工作表worksheet,如函数createExcel所示:



      function createExcel:variant;

      var

      v:variant;

      sheet:variant;

      begin

      v:=createoleobject('Excel.Application');//创建OLE对象

      v.visible:=true;

      v.workbooks.add(-4167); //添加工作表

      v.workbooks[1].sheets[1].name:='test';

      sheet:=v.workbooks[1].sheets['test'];

      return v;

      end;

      2 数据表格控制

      Excel表格的控制,主要包括数据的导入、修改;单元格的合并、边框的控制;表格的复制、粘贴等。当报表格式一定的情况下,表格的复制、粘贴显得尤为重要,这样,可以先制作一个文件模板,然后按照实际需要输出多页报表即可。

      (1)数据的导入(importData)


      procedure importData;

      var

      I,j:integer;

      v:variant;




      begin

      v:=createExcel; //创建Excel文件test

      for I:=0 to maxcolumn do

      begin

      for j:=0 to maxrow do

      v.workbooks[1].sheets[1].cells[I,j]:=I*j; //导入数据

      end;

      end;

      (2)单元格的合并、边框的控制(lineStylecontrol)

      单元格的合并,是在选定合并范围的情况下进行的。边框控制可以操作边框线条的是否显示。其他方式的控制,可以仿照下面过程进行。


      procedure lineStylecontrol;

      var

      v,sheet,range:variant;

      begin

      v:=createExecl;

      sheet:= v.workbooks[1].sheets[1];

      range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];//选定表格

      range.select;

      range.merge; //合并单元格

      range.borders.linestyle:=xlcontinuous; //置边框线可见

      range.font.size:=9; //改变表格内文本字体大小

      end;


     
    我要投稿   -   广告合作   -   关于本站   -   友情连接   -   网站地图   -   联系我们   -   版权声明   -   设为首页   -   加入收藏   -   网站留言
    Copyright © 2009 - 20012 www.www.hxswjs.com All Rights Reserved.57365.com 版权所有