网页功能: 加入收藏 设为首页 网站搜索  
浅谈Delphi如何控制Excel操作
发表日期:2004-11-18作者:hiyaolee[转贴] 出处:CSDN  

1 创建Excel文件

要在Delphi中控制Excel,就必须用到OLE自动化。现在一般采用OLE2来创建OLE对象,当激活一个OLE对象时,服务器程序仅在容器程序内部激活,这就是所谓的“就地激活”(in-place activation)。

创建Excel文件时,先创建一个OLE对象,然后在对象中建立工作表worksheet,如函数createExcel所示:


function createExcel:variant;
var

v:variant;

sheet:variant;

begin

v:=createoleobject('Excel.Application');//创建OLE对象

v.visible:=true;

v.workbooks.add(-4167); //添加工作表

v.workbooks[1].sheets[1].name:='test';

sheet:=v.workbooks[1].sheets['test'];

return v;

end;
 


2 数据表格控制

Excel表格的控制,主要包括数据的导入、修改;单元格的合并、边框的控制;表格的复制、粘贴等。当报表格式一定的情况下,表格的复制、粘贴显得尤为重要,这样,可以先制作一个文件模板,然后按照实际需要输出多页报表即可。

(1)数据的导入(importData)


procedure importData;
var

I,j:integer;

v:variant;
 


begin
v:=createExcel; //创建Excel文件test

for I:=0 to maxcolumn do

begin

for j:=0 to maxrow do

v.workbooks[1].sheets[1].cells[I,j]:=I*j; //导入数据

end;

end;
 


(2)单元格的合并、边框的控制(lineStylecontrol)

单元格的合并,是在选定合并范围的情况下进行的。边框控制可以操作边框线条的是否显示。其他方式的控制,可以仿照下面过程进行。


 procedure lineStylecontrol;
var

v,sheet,range:variant;

begin

v:=createExecl;

sheet:= v.workbooks[1].sheets[1];

range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];//选定表格

range.select;

range.merge; //合并单元格

range.borders.linestyle:=xlcontinuous; //置边框线可见

range.font.size:=9; //改变表格内文本字体大小

end;
 

 

 

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 浅谈Delphi如何控制Excel操作
本类热点文章
  DBGrid 应用全书
  用户界面设计的技巧与技术
  TWebBrowser编程简述
  初探Delphi 7 中的插件编程
  获取主板BIOS的信息
  网卡的远程网络唤醒
  Delphi 2006简介(Dexter)
  用Delphi开发数据库程序经验三则
  在Windows2000中拦截Ctrl+Alt+Del
  编写TAPI应用程序
  利用语音Modem实现电话点播和留言功能
  Delphi面向对象编程的20条规则
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00757