ole嵌入Excel 的问题(100分)

我使用Ole嵌入Excel来写入一些东西，但在读Excel中某行列的一些属性，运行时老是报
错"找不到成员"，程序源码见下：

type
TForm1 = class(TForm)
ole: TOleContainer;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
vlevariant;
begin
ole.DoVerb(ovopen);
v:=ole.OleObject;
v:=v.application.activeworkbook.activesheet;

v.cells(2,1):='hello';

v.cells(1,1).font.size:=24;//出错行，有哪位高手请提示这行出错在哪儿?

end;

用Office中的录制宏录一把，然后看看里面值是什么。
在不知道提供的方法的情况下，这个法子最有效了。

引用中必须用[]
>v.cells(1,1).font.size:=24;
应为 v.cells[1,1].font.size:=24;

v.cells(2,1):='hello';
v.cells(1,1).font.size:=24;
should be
v.cells[2,1]:='hello';
v.cells[1,1].font.size:=24;
调用方法用的是()，访问特性用的是[]

可以用如下的程序，Delphi3 下调试通过
procedure TForm1.Button1Click(Sender: TObject);
var
V: Variant ;
begin
V := CreateOleObject('Excel.Application');
v.Workbooks.Add;
v.Range['C5'].Select ;
v.ActiveCell.FormulaR1C1 := 'dfad' ;
v.ActiveCell.Characters(Start:=1, Length:=4).Font.Name := 'Times New Roman' ;
v.ActiveCell.Characters(Start:=1, Length:=4).Font.FontStyle := '常规' ;
v.ActiveCell.Characters(Start:=1, Length:=4).Font.Size := 16 ;
v.ActiveCell.Characters(Start:=1, Length:=4).Font.Strikethrough := False ;
v.ActiveCell.Characters(Start:=1, Length:=4).Font.Superscript := False;
v.ActiveCell.Characters(Start:=1, Length:=4).Font.Subscript := False ;
v.ActiveCell.Characters(Start:=1, Length:=4).Font.OutlineFont := False ;
v.ActiveCell.Characters(Start:=1, Length:=4).Font.Shadow := False ;

v.ActiveWorkbook.SaveAs('c:/test.xls');
v.Workbooks.Close;

end;

to 茶叶蛋:
何为“用Office中的录制宏录一把”，请详述！

你什么时候给分啊!?

解释OFFICE的宏录制：
1。菜单：工具|宏|录制：
2。进行你想要的操作。
3。结束录制
4。菜单：工具|宏|宏|编辑;或打开VB编辑器

.Workbooks.说明什么？
.ActiveWorkbooks.又说明什么？为何不用V.Saveas(),难道...?

.workbooks说明excel中的工作薄对象。
.ActiveBooks说明当前活动工作薄对象。
它们都是创建的ole对象。

g

多人接受答案了。