dataset快速导出EXCEL

不用安装office 快速导出EXCEL的源码，来自网上，觉得不错，先贴出来供大家参考！

{   背景：今天要把DataSet导入Excel，查询以前的贴子，一部分用Ole，速度太慢，
          一部分用ADO连接到Excel文件，也很慢，一气之下把DBGrigEh的导出部分改了出来，
          欢迎大家指教、改进。
    功能：将数据集的数据导入Excel;
    用法：With ExportXls.Create(TDataSet(ADOQuery1)) do
          Try
            Save2File(SaveDialog1.FileName, True);
          finally
            Free;
          end;
    作者：Caidao (核心代码来自Ehlib)
    时间：2003-04-09
    地点：汕头
    不需安装Excel即可导出。别忘了uses uExportXls;
}

unit uExportXls;

interface

uses
  Data.DB, System.Classes;

var
  CXlsBof: array[0..5] of Word = ($809, 8, 0, $10, 0, 0);
  CXlsEof: array[0..1] of Word = ($0A, 00);
  CXlsLabel: array[0..5] of Word = ($204, 0, 0, 0, 0, 0);
  CXlsNumber: array[0..4] of Wo