在Deiphl中轉Excel(100分)

各位高手:
請問在Deiphl中將數據轉到Excel,怎樣使所得結果能自動求和;

下面是調用一個已經存在的Excel文件
uses comobj;
procedure TForm1.Button1Click(Sender: TObject);
var v,st,sp,sk,sf:variant;
begin
v:=createoleobject('excel.application');
v.visible:=true;
v.workbooks.add('c:/jzxt/report/style.xls');
st:=v.workbooks[1].worksheets[1];
sp:=v.workbooks[1].worksheets[2];
sk:=v.workbooks[1].worksheets[3];
st.cells[1,1]:='上午好';
sp.cells[1,1]:='中午好';
sk.cells[1,1]:='下午好';
end;

关注

我们一直用DevexpressGrid控件，里面就有这样的例子，实现起来十分容易。不过自己写
我倒是没试过。