ExcelApplication1.Connect;//EXCEL应用程序
  ExcelApplication1.Visible[0]:=True;
  Excelapplication1.Workbooks.Open(getcurrentdir+'\计量器具检定台帐.xls',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);//打开指定的EXCEL 文件  ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);//ExcelWorkbook1与Eexcelapplication1建立连接
  ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[3] as _Worksheet);//Excelworksheet1与Excelworkbook1建立连接d7+excel 2003!