各位高手请看看这是啥问题？

Question

procedure TForm1.Button1Click(Sender: TObject);
var filename1:string;
  i:integer;
begin
   filename1:=getcurrentdir+'\'+'出车统计表.xls';
  try
    excelapplication1.Connect;
    except
    end;
    ExcelApplication1.Caption := '应用程序调用 Microsoft Excel';
    ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
    excelapplication1.Visible[0]:=true;
    excelworkbook1.ConnectTo(excelapplication1.Workbooks.Open(filename1,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,0));
    excelworkbook1.Activate;
    excelworksheet1.ConnectTo(excelworkbook1.Worksheets as _worksheet);
    excelworksheet1.Activate;
    excelworksheet1.Name:=ADOTable1.TableName;
    excelworksheet1.UsedRange[0].ClearContents;
    //excelworksheet1.UsedRange[0].Borders.linestyle:=xllinestylenone;
    excelworksheet1.Cells.Item[1,1]:='出车统计表';end;
能打开excel表但是excelworkbook1.ConnectTo(excelapplication1.Workbooks.Open(filename1,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,0));
    excelworkbook1.Activate;这句总是报错，请各位大虾多多帮忙，不胜感激！