当前位置: 首页 > 图文教程 > 开发语言 > Delphi > Delphi控制Excel的重要属性和方法

Delphi
Delphi在网络数据库中的应用
组件技术在Delphi中的实现(1)
如何在Delphi中操作Excel
巧用Delphi制作溅射屏幕
如何在Delphi中实现ASP编程
用Delphi编写可以断开Internet连接的程序
在DELPHI中利用API实现网格内组件的嵌入
你的大写数字规范吗
用Delphi实现打印功能
Delphi控件,我们也可以(4)
Delphi控件,我们也可以(3)
Delphi控件,我们也可以(2)
Delphi控件,我们也可以(1)
Delphi让你发送Flash电子邮件(2)
Delphi让你发送Flash电子邮件(1)
Delphi实现随时随刻知道自己的IP
从问题到结果 ――EXE2SWF的开发手记
用Delphi 6编程实现自动标注汉语拼音
在窗口标题区添加按钮
Delphi让你发送Flash电子邮件

Delphi控制Excel的重要属性和方法


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-30   浏览: 316 ::
收藏到网摘: n/a

 
在delphi中调用excel有四种方式,我们选取其中的一种用OleObject来装载excel工作表的方式来谈delphi控制excel的重要属性和方法。

  首先给出通过OLE创建的一些主要代码步进行简单说明:

  创建OLE对象:





  Var olecon: TOleContainer;

  Olecon:= TOleContainer.Create(self);

  Olecon.oleobject:= Olecon.CreateObject('excel.sheet',false);

  或选择导入一个excel文件来创建OLE对象:


  Olecon.oleobject:= Olecon.CreateObjectFromFile(xlsname,false);

  最好隐藏excel的几个工具条,这样就好象是嵌在你的程序中的一个表而已了:


  Olecon.OleObject.application.CommandBars['Standard'].Visible:=false;

  Olecon.OleObject.application.CommandBars['Formatting'].Visible:=false;

  Olecon.OleObject.application.CommandBars['Reviewing'].Visible:=false;

  然后显示并激活excel表,对TOleContainer定义的对象:


  Olecon.show;

  Olecon.doverb(0);

  这样基本可以了,但TOleContainer有个不好的地方,就是当你一点击其它控件是就它就失去焦点,然后就自动退出,其实并没有真的退出,只是需要你再次激活它而已,关键是当它失去焦点的时候就excel对象就不见了,可以用Timage控件把TOleContainer所在的地方有EXCEL时候的区域图片截下来骗骗用户,我们这里主要不是讲这个,就不详述了。

  下面我们就开始讲Excel_TLB中的接口的常用属性和方法,主要是针对导出和设定报表格式的一些接口元素。

  单元格的读写属性:


  olecon.OleObject.application.cells.item[1,1];

  olecon.OleObject.application.cells(1,1);

  olecon.OleObject.application.cells[1,1].Value;

  上面三种都可以对工作表的‘A1’单元进行读写。


在delphi中对单元格(集),区域,工作表等所有对象的操作都是要Variant来实现的。

  自己的程序中选定区域赋给Range:


  Var range,sheet:Variant;

  Range:= olecon.OleObject.application.Range['A1:C3'];

  或者:


  Sheet:= olecon.OleObject.application.Activesheet;

  Range:= olecon.OleObject.application.Range[sheet.cells[1,1],sheet.cells[3,3]];

  对上面的Range合并单元格:


  Range.merge;

  Range. FormulaR1C1:=’合并区’;//合并后写入文本

  注意以后要读合并的单元格里面的文本就是读合并区域的左上角的那个单元格的文本

  在excel表中选定区域赋给range:


  range:=excel_grid1.OleObject.application.selection;

  拆分单元格: