delphi控制Excel单元格宽,高,字体颜色,边框如何控制???

XTMENG 2008-05-14 12:08:09
如题???
...全文
2274 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
08年的东西还能用上。谢谢。
RoverX 2008-05-15
  • 打赏
  • 举报
回复
http://dev.csdn.net/article/57/57436.shtm
RoverX 2008-05-14
  • 打赏
  • 举报
回复
Sheet1.Rows[1].RowHeight:= 25;
Sheet1.Range['A1'].Font.Name:= '宋体';
Sheet1.Range['A1'].Font.Size:= 16;
Sheet1.Range['A1'].Font.Bold:= True;
Sheet1.Range['A1'].HorizontalAlignment:= $FFFFEFF4;
Sheet1.Range['A2'].HorizontalAlignment:= $FFFFEFC8;
ExcelApp.Selection.RowHeight:= 20;
ExcelApp.Selection.EntireColumn.AutoFit;
ExcelApp.Selection.Borders.LineStyle := $00000001;

可以录制宏自己看
jsweifen 2008-05-14
  • 打赏
  • 举报
回复
Delphi控制Excel的重要属性和方法

在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对象的方式都适用。
不需Excel也可讀寫xls檔的Delphi控件 用来读取Excel,Access的控件 读写任何单元值 数字型、字符型、布尔型以及错误型。但是你了解日期和时间型单元吗?在Excel中没有这样的单元。Excel是和Delphi一样的方式来存储日期和时间的,即浮点型。那是什么制造了日期或时间值啦,是格式化。 完全支持公式。你可以使用和Excel一样的函数,也支持对外部工作簿引用的公式,你甚至可以从外部引用读取结果。 与操作Delphi的TStringGrid一样的方式操作单元格,或则通过给单元格命名,比如:”D7” 根据单元格的规则以字符串格式读取单元值 根据你的需求格式化单元 格式化很简单。通过获取单元格,你就可以操作单元的格式属性。例如:XLSReadWriteII.Sheet[n].Cell[Col,Row].FontSize := 12; 你也可以对域进行格式化,比如设置边框。 支持所有的Excel格式选项 合并单元格 操作所有的打印选项 选择页面大小,设置边距 设置标题和页脚,包括格式码。 定义打印区域 设置分页符 XLSReadWriteII完全支持Unicode 所有的字符型都是字符型。你完全不必担心非英语字符。 控件 你可以插入控件以及定义他们的源和目的单元 绘图 插入所有种类的绘图,从简单的线条到AutoShapes 多行文本和文本框 创建和编辑文本框以及多行文本 图表 创建和Excel中一样选项的图表 复制/移动/删除 可以以Excel一样的行为复制、移动和删除单元 行列也可以像单元一样复制和移动 支持工作簿之间的复制和移动 可以复制整个工作簿 使用命名的域/单元 你可以在你想要的任何地方命名 通过命名访问单元格,例如:XLS.NameAsFloat['MyCell'] := 202.5; 支持指定、内置的名称 支持所有超链接类型 网页和E-mail地址 本地文件 服务器文件 工作薄引用 加密文档 你可以读写加密文件。条件是你需要知道文件的密码。 计算 可计算单元以及整个工作薄 计算引擎将依据单元进行计算。 可读取引用的外部工作薄。这通过一个特殊的快速查询程序进行执行 Rich Text单元 为了轻松地创建多字体格式的单元,单元可以以RTF格式读写 VBA宏 可以读写文件中的宏,使用XLSReadWriteII可以为控件比如:按钮、组合框等添加宏 导入及导出 从下列导入数据… Open Office Calc文档 CSV文件以及其他可以自动识别分隔符、小数分隔符和文本引用字符的文本文件 HTML表格(标签) 数据库 导出数据为… CSV文件 HTML文件 其他 自动过滤 单元验证 有条件的格式 合并单元 PaintCell方法:将单元内容渲染到TCanvas对象的 XLSReadWriteII包还包含下列组件: 从任何数据库中导入数据到工作薄 工作薄导出为HTML文件

5,914

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧