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

原创 2004年09月14日 20:16:00

Delphi控制Excel的重要属性和方法<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

   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. FormulaR<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" />1C1:=’合并区//合并后写入文本

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

excel表中选定区域赋给range

range:=excel_grid1.OleObject.application.selection;

拆分单元格:

Range.unmerge;

合并后设定单元格(集)的格式:

Range.HorizontalAlignment:= xlCenter;// 文本水平居中方式

Range.VerticalAlignment:= xlCenter//文本垂直居中方式

Range.WrapText:=true;//文本自动换行

Range.Borders.LineStyle:=1//加边框

Range.Interior.ColorIndex:=39;//填充颜色为淡紫色

Range.Font.name:=’ 隶书’;//字体

Range.Font.Color:=clBlue;//字体颜色

常用格式也就这些,以上这些对于单个单元格也适用。

excel表中寻找前后上下的单元格:

Var u1,u2,u3,u4,u5:Variant;

U1:=olecon.oleobject.application.activecell;//获取当前格;

U2:=u1.previous;//非特殊情况就是u1左边的一格;

U3:=ui.next;//非特殊情况就是u2右边的一格;

U4:=olecon.oleobject.application.cells[u1.cells.row-1,u1.cells.column];//非特殊情况为上面一格

U5:=olecon.oleobject.application.cells[u1.cells.row+1,u1.cells.column];//非特殊情况为下面一格

删除和插入一行和一列:

Olecon.oleobject.application.rows[2].delete;

Olecon.oleobject.application.columns[2].delete;

Olecon.oleobject.application.rows[2].insert;

Olecon.oleobject.application.columns[2].insert;

复制指定区域:

Olecon.oleobject.application.range[‘A1:C3’].copy;

从指定单元格开始粘贴:

Olecon.oleobject.application.range[‘A4’].PasteSpecial;

常用的就这些了,对delphiserver面板下的EXEL控件和创建EXCEL.Application COM对象的方式都适用。

 

                                                    作者:费亚

                                                    时间:2004-9-14

Delphi操作Excel的重要属性及方法

Delphi 5 控制Excel             作者:吴晓勇,孙唏瑜             时间:2001年11月20日 (一) 使用动态创建的方法 首先创建 Exce...
  • QDseashore
  • QDseashore
  • 2014年06月17日 20:50
  • 629

Delphi控制Excel的方法

转自:http://wenda.tianya.cn/question/24c090e4f4743b4f1 创建Excel文件 要在Delphi中控制Excel,就必须用到OLE自动化。现在一般采用OL...
  • mochizuki
  • mochizuki
  • 2015年09月09日 10:59
  • 279

关于Excel的对象、方法和属性

 要在应用程序中控制Excel的运行,首先必须在编制自动化客户程序时包含Comobj.hpp  #include   "Comobj.hpp "  C++   Builder把Excel...
  • hack_tian
  • hack_tian
  • 2017年06月01日 16:20
  • 521

怎么在delphi中读取Excel数据(各种详细操作)

( 一 ) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj : Var   ExcelApp : Variant ;   ExcelApp := CreateOl...
  • zang141588761
  • zang141588761
  • 2016年06月15日 15:58
  • 4971

Delphi控制Excel(一)

用Delphi从数据库中取得资料,然后导出到Excel中做成报表是个不错的选择,因为Excel强大的报表功能那可是没话说   前提   Delphi中要    uses comobj;   v...
  • hangyi_008
  • hangyi_008
  • 2014年06月16日 14:42
  • 318

delphi控制Excel(二)

/ XL Report unit LebutXLReport; interface uses   Controls, xlReport, cxGrid, cxStyles, Dialogs, ...
  • hangyi_008
  • hangyi_008
  • 2014年06月16日 15:59
  • 549

怎么在delphi中读取Excel数据(各种详细操作)

( 一 ) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj : Var ExcelApp : Variant ; ExcelApp := CreateOleObject ...
  • zisongjia
  • zisongjia
  • 2017年03月15日 15:30
  • 1077

Delphi对Excel的所有操作

学完这个你就成为excel高手了!(Delphi对Excel的所有操作)逐个试试!   一) 使用动态创建的方法  首先创建 Excel 对象,使用ComObj:  var ExcelApp: Va...
  • qingfeng45697
  • qingfeng45697
  • 2016年02月01日 16:16
  • 1493

delphi 导出到excel的7种方法

第一种方法delphi 快速导出excel uses ComObj,clipbrd; function ToExcel(sfilename:string; ADOQuery:TADOQuery)...
  • KWWL8888
  • KWWL8888
  • 2013年12月02日 09:09
  • 1599

delphi导出数据至Excel的几种方法及比较

delphi导出数据至Excel的几种方法及比较      一、delphi 快速导出excel uses ComObj,clipbrd; fu...
  • hangyi_008
  • hangyi_008
  • 2014年03月07日 10:37
  • 922
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi控制Excel的重要属性和方法
举报原因:
原因补充:

(最多只允许输入30个字)