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

Delphi
Delphi开发经验四则
Delphi应用程序的应用（一）
Delphi应用程序的应用（二）
异常处理与程序调试（一）
异常处理与程序调试（二）
异常处理与程序调试（三）
Delphi开发数据库应用程序概述（一）
Delphi开发数据库应用程序概述（二）
简单数据库应用的创建及MASTAPP介绍（一）
简单数据库应用的创建及MASTAPP介绍（二）
简单数据库应用的创建及MASTAPP介绍（三）
数据访问部件的应用及编程（一）
数据访问部件的应用及编程（二）
数据访问部件的应用及编程（三）
数据浏览部件的应用及编程（一）
数据浏览部件的应用及编程（二）
SQL编程（一）
SQL编程（二）
Delphi客户服务器应用开发（一）
Delphi客户服务器应用开发（二）

No. « 3 4 5 6 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-30   浏览: 310 ::
收藏到网摘: 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;

　　拆分单元格：