求教~excelapplication应用的问题

[fcl912]

因为时间紧，没有好好理解，到网上找了一些代码就开使用了，主要实现打开一个EXCEL，再插入数据并设置格式，再保存，遇到一些问题...
代码如下

procedure TForm1.Button1Click(Sender: TObject);
var
NewFileName: string;
NewFile: TFileStream;
OldFile: TFileStream;
time:string;
sheet1:variant;
begin
time:=formatdatetime('yyyy年mm月dd日 hh-mm-ss zzz',now);
//设置的新文件名
NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(getcurrentdir+'\model\表1.xlt');

OldFile := TFileStream.Create(getcurrentdir+'\model\表1.xlt', fmOpenRead or fmShareDenyWrite);
try
NewFile := TFileStream.Create(getcurrentdir+'\用户查询表\表1\'+time+'.xls', fmCreate);
try
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
begin
showmessage('文件存放在用户查询表目录的分类子目录下！');
FreeAndNil(NewFile);
end;
end;
finally
FreeAndNil(OldFile);
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~以上为复制模板并重命名
eapp.Connect;
eapp.Workbooks.Open(getcurrentdir+'\用户查询表\表1\'+time+'.xls',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0,0,0);
sheet1:=eapp.Worksheets.Item[1];

sheet1.cells[6,1].value:='测点1';
//eapp.ActiveSheet.Range['a6:h6'].Borders[2].Weight:=3;
sheet1.cells[6,2].value:='测点1';
sheet1.cells[6,3].value:='测点1';
sheet1.cells[6,4].value:='测点1';
sheet1.cells[6,5].value:='测点1';
sheet1.cells[6,6].value:='测点1';
sheet1.cells[6,7].value:='测点1';
sheet1.cells[6,8].value:='测点1';
//eapp.ActiveWorkbook.Save(0);
//eapp.ActiveWorkbook.Saved;
eapp.Visible[0]:=true;
end;


其中设置单元格的边框功能不能实现“//eapp.ActiveSheet.Range['a6:h6'].Borders[2].Weight:=3;”
一运行就有错误
再就是保存功能不能实现，不想用SAVEDIALOGS,
//eapp.ActiveWorkbook.Save(0);
//eapp.ActiveWorkbook.Saved;
也是一运行就有错误
请各位帮助！

[骊山大粽子]

excelapplication太复杂了
ole就简单多了
代码和vba几乎一样
今天弄了一天，excelapplication几乎没有勇气来

[dabaicai]

用saveas覆盖一下名字不行？？

[fcl912]

还是不行，不过还是谢谢两位