在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时候的区域图片截下来骗骗用户,我们这里主要不是讲这个,就不详述了。
<
首先给出通过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时候的区域图片截下来骗骗用户,我们这里主要不是讲这个,就不详述了。
<