繁體中文当前位置: 首页 > 图文教程 > 开发语言 > Delphi > Delphi控制Excel的重要属性和方法
- Delphi
- Delphi实现窗体控件自由摆布
- 利用Delphi编制IP地址转换器
- 用Indy组件开发Socket应用程序
- Delphi模拟最小化恢复关闭按纽
- 简析XML及其在Delphi中的应用
- Delphi开发基于DCOM的聊天室
- Delphi实现远程串口的数据采集
- Delphi托盘编程实战演练
- 在Delphi中使用电子邮件
- Delphi开发98屏幕保护预览程序
- Delphi实现同类型文档自动合并
- Delphi 8 For .NET 抢先预览
- Delphi图像存取另类解决方案
- 用Delphi实现动态获取版本信息
- 用Delphi客户端访问EJB组件
- Delphi中数据网格DBGrid应用
- Delphi数据库控件使用入门
- Delphi下的COM编程技术简介
- 用Delphi轻松实现背景播放
- 也谈TTreeView、TListView用法
Delphi控制Excel的重要属性和方法
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-30 浏览: 304 ::
收藏到网摘: 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; |
拆分单元格：
评论 (0) 