delphi: OleContainer显示excel表格，如何实现、修改提示、保存、打印预览、打印等？

[天鸽]

OleContainer显示excel表格，如何实现、修改提示、保存、打印预览、打印等？
如何通过程序修改excel表

[kampan]

引用：
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对象的方式都适用。

[天鸽]

在 OleContainer 中修改了excel表，如何将修改内容保存到这张表呢？

OleContainer1.close;
OleContainer1.AllowActiveDoc:=false;
OleContainer1.AllowInPlace:=false;
OleContainer1.DoVerb(1);
OleContainer1.OleObject.Application.visible:=true;
olecontainer1.oleobject.application.ativeWorkBOok.save();
根本没有作用？？？？？？？？？？

[天鸽]

保存
保存
保存
保存????

[天鸽]

等待.........................

[风之谷]

olecontainer1.oleobject.application.ativeWorkBOok.saveas(filename);


filename与你存在的文件名称一样

[天鸽]

保存时出错：
被呼叫方拒绝接收呼叫!
要怎么解决？？？？

[iseekcode]

试试下面的代码:
var excel:Variant;

excel:=GetActiveOleObject('Excel.Application');
if not excel.ActiveWorkBook.Saved then excel.ActiveWorkBook.Save;

[pigwi]

OleContainer1.SaveAsDocument('filename'); //保存

[hjkto]

mark

[foodztf]

[Quote=引用 7 楼 iseekcode 的回复:]
试试下面的代码:
var excel:Variant;

excel:=GetActiveOleObject('Excel.Application');
if not excel.ActiveWorkBook.Saved then excel.ActiveWorkBook.Save;
[/Quote] 高手