try
     ExcelputApplication.Connect;
   Except
     application.MessageBox('Excel 2000 是否已经正确安装','提示');
     exit;
   end;
   ExcelputApplication.Visible[0]:=true;
   ExcelputApplication.Caption:='表头';
   ExcelApplication.Workbooks.Add(NULL,0);
  
   不知为什么执行到这里总出错？