ExcelApplication1.Connect;//EXCEL应用程序
  ExcelApplication1.Visible[0]:=True;
  Excelapplication1.Workbooks.Open(getcurrentdir+'\原始表.xls',null,null,null,null,null,null,null,null,null,null,null,null,null,null,0);//打开指定的EXCEL 文件  ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);//ExcelWorkbook1与Eexcelapplication1建立连接
  ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);//Excelworksheet1与Excelworkbook1建立连接设置活动工作表应该怎么设?