Vb教程 Vb.net教程 Vfp教程 C/C++教程 Vc/Vc++教程 Delphi教程 Java教程 Powerbuilder
  杀毒频道 | 短信频道 | 网络电视 | 论文中心 | 学上网 | 学软件 | 网页特效 | 电脑基础 | 论坛  
  NCRE | 软考 | CET | 职称英语 | 司法考试 | 报关员 | 公务员 | CATTI | CPA考试  
  Html教程 | Css教程 | Xml教程 | Asp教程 | Asp.net | Php教程 | Jsp教程 | Linux教程 | QQ技巧  
Photoshop Illustrator ImageReady Maya教程 3D Max教程 Lightscape Coredraw教程 Authorware Autocad教程 Freehand教程
Access教程 Mysql教程 Sql server Oracle教程 Word教程 Excel教程 Powerpoint Frontpage Asp.net源码 Php源代码
Flash教程 Fireworks Dreamweaver C#教程 outlook教程 系统安装 vbscript教程 Javascript Jsp源代码 Asp源代码
您的位置:首页 >> delphi教程 >> 正文

Delphi控制Excel的重要属性和方法
文章来源:csdn 作者:费亚

 在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;

  拆分单元格:


  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;

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

[返回]

编程语言 web开发 数据库 网络技术 操作系统 服务器 网页设计 图形设计 办公软件 常用软件 学电脑

Copyright© www.bianceng.cn Powered by 编程入门网 All Rights Reserved.
关于本站 | 版权声明 | 联系我们 | 友情链接 |
编程入门网 版权所有