oleContainer里面显示excel的问题，高手请进，UP有分，在线等！

Question

我用如下语句生成了excel并且可以显示。
但是我不知道如何操作这个excel里面的cells，比如赋值和合并单元格。
procedure TForm1.Button4Click(Sender: TObject);
var
begin
  oleContainer.CreateObject('Excel.Sheet.8',false);
  oleContainer.DoVerb(ovshow);
end;请大家帮忙！

Answer 1

to ：wyr521(论坛王子)
我是指的操作form里面内嵌的excel，不是外部独立的excel。
所以你的东西我不明白，能再详细一点吗？

Answer 2

ExcelOLEObject1:=TExcelOLEObject(OleContainer1.OleObjectInterface);

Answer 3

to： renzy205(ren)
能够再给出多一点的代码吗？（上下文）

Answer 4

to： renzy205(ren)
你是下面这么意思吗？
begin
oleContainer.CreateObject('Excel.Sheet.8',false);
ExcelOLEObject1:=TExcelOLEObject(OleContainer.OleObjectInterface);
//操作excel里面的cells.
oleContainer.DoVerb(ovshow);
end；我不知道怎么操作？//比如合并单元格和单元格赋值、画线条等。谢谢！

Answer 5

var
 xlApp, Sheet: Variant;
begin
 OleContainer1.CreateObject('Excel.Sheet.8',false);
 OleContainer1.DoVerb(ovSHOW);
 xlapp:=OleContainer1.OleObject.Application;
 sheet :=  xlApp.WorkBooks[1].WorkSheets[1];
 Sheet.Cells[1, 1] := '1234';

Answer 6

Sheet.Range['A1','D1'].Merge(True); //合并单元格

Answer 7

Sheet.Range['A1','D1'].Merge(); //有的版本这样用

Answer 8

to ：renzy205(ren)
代码很好用，谢谢！～ 画边框呢？

Answer 9

我用下面这两句为什么不行呢？
xlworkSheet.selection.HorizontalAlignment := xlCenter;
xlworkSheet.selection.VerticalAlignment := xlCenter;应该怎么写？

Answer 10

http://www.csdn.net/develop/Read_Article.asp?Id=19027
这个帖子可能有用!
大家试一试,有结果了,相互通知一声.

Answer 11

Sheet.Range['A1','D2'].Borders.LineStyle:=xlHairline;
 Sheet.Range['b3','D9'].Borders.LineStyle:=xlHairline;
//画线

Answer 12

Sheet.Cells[1,1].Formula := '=sum(a2, b1)';//公式

Answer 13

好像不行呀？
报错说不认识  xlHairline;

Answer 14

xlHairline 好象在excel2000单元

Answer 15

又有莫名其妙的问题。我开始运行几次很好。但是超过3次以后，就有问题了。excel好像什么也没有发生过一样，什么也不显示。  为什么？

Answer 16

可能是程序非正常中止，excel还没退出。任务管理器、找到excel.exe.强只中止

Answer 17

你在退出程序的时候要释放EXECL 对象的。
可以看VBA的帮助，基本上问题都能找到答案的。