求教~excelapplication应用的问题

因为时间紧，没有好好理解，到网上找了一些代码就开使用了，主要实现打开一个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;
也是一运行就有错误
请各位帮助！