stringgrid如何保存到 excel中，用delphi中的 servers控件组？急急(100分)

查找一下以前的帖子！

var
iexcel:variant;
begin
try
iexcel:=createoleobject('excel.application');
except
begin
//
// showmessage('d');
application.MessageBox('数据传输出错,请确认Microsoft Excel是否安装!','操作报告',Mb_Ok);
exit;
end;
end;

try
iexcel.workbooks.open(file_edit.text);
iexcel.sheetS[1].activate;
for i:=2 to iexcel.cells.count do
begin
table.append;
for j:=1 to 15 do
begin
Table.FieldValues[iexcel.cells[1,j].value] :=iexcel.cells[i,j].value;
//这里的几句话就看你自己了..不难的.
end;
table.post;
end;
finally
iexcel.quit;
end;
end;
end;
end;

我看了以前的帖子，不行
我这样写，我的机有装EXCEL

var i,j:integer;
xlapp:variant;
sheet:variant;
begin
try
xlapp:=createoleobject('excel.application');
except
screen.cursor:=crdefault;
exit;
end;
xlapp.workbooks.add[xlwbatworksheet];
xlapp.workbooks[1].worksheets[1].name:='lalala';
sheet:=xlapp.workbooks[1].worksheets['lalala'];
if form1.savedialog1.execute then
begin
for i:=0 to form1.stringgrid1.rowcount-1 do
for j:=0 to form1.stringgrid1.colcount-1 do
begin
sheet.Cells[i+1,j]:=form1.stringgrid1.cells[i,j];
end;
excelworkbook1.savecopyas(savedialog1.filename);
excelworkbook1.Close(false);
excelapplication1.disconnect;
excelapplication1.quit;
screen.cursor:=crdefault;
application.messagebox('成功保存','information',0);
end;
提示出错： ole error 800a03ec

多人接受答案了。