这是一年前写的代码，那里在公司还有比较多的空闲时间，原先也在csdn那里贴出过，在baidu里搜索“ 一个导出Excel非常快的类 ”出有12页。还有部分功能没有实现，最大的问题就是没有实现导出Excel后多表头。 欢迎转贴，但请注明出处及作者(HBin http://hi.baidu.com/fshbin) 。代码如下：

unit DBGridEhToExcel;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ComCtrls, ExtCtrls, StdCtrls, Gauges, DBGridEh, ShellApi;

type
  TTitleCell = array of array of String;

  //分解DBGridEh的标题
  TDBGridEhTitle = class
  private
    FDBGridEh: TDBGridEh;  //对应DBGridEh
    FColumnCount: integer; //DBGridEh列数(指visible为True的列数)
    FRowCount: integer;    //DBGridEh多表