用内存粘贴的方法把数据存入excel

ExcelApplication1 := TExcelApplication.Create(Application);
   ExcelWorksheet1 := TExcelWorksheet.Create(Application);
   ExcelWorkbook1 := TExcelWorkbook.Create(Application);
   filename := '20020811'//创建文件
   ExcelApplication1.Connect;
   ExcelApplication1.Workbooks.Add(EmptyParam, 0); //新建
   ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
   ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
   /////////////////////////////////////////////////////    
   Clipboard.AsText :='要导出的数据集';
   ExcelWorksheet1.Paste;
   ExcelWorksheet1.SaveAs(filename);
   //////////////////////////////////////////////////////////重点就这三句东东
   ExcelApplication1.Disconnect;
   ExcelApplication1.Visible[1] := true; //显示导出的文档