----------------准备
该方法使用到3个office控件，如果是Delphi2010版本，请按照以下方法添加：
Component->Install packages...->Add... 安装 dcloffice2k140.bpl 即可。
（dcloffice2k140.bpl 位于 C:\Program Files\Embarcadero\RAD Studio\7.0\bin）；
然后把TExcelApplication,TExcelWorksheet,TExcelWorkbook拉到窗体上。
-----------------实现代码
public
procedure ExportExcelEh(const CurDS : TDBGridEh; vSum: Boolean = false; Title: String ='');
end;
-----------------输入参数说明：CurDS 是导出多表头的DBGridEh， vSum 是否添加自动汇总， Title标题
procedure Tmain_Form.ExportExcelEh(const CurDS : TDBGridEh; vSum: Boolean = false; Title: String ='');
var
nowhangi, i, j, k, ii, LCID, liRecNu, liFieldNu: integer; //nowhangi当前 execl的所在行，jilushu当前的记录位置
lsFile, cols, lsstr: string;
ExcelApplication1: TExcelApplication;
ExcelWorkbook1: TExcelWorkbook;
ExcelWorkSheet1: TExcelWorksheet;
xl: OleVariant;
SaveDialog1: TSaveDialog;
rowCount, Colcount, index: Integer;
isGroups: Boolean;
MultiArr: OleVariant;
function RefToCell(RowID, ColID: Integer): string;
var
ACount, APos: Integer;
begin
ACount := ColID div 26;
APos := ColID mod 26;
if APos = 0 then
begin
ACount := ACount - 1;
APos := 26;
end;
if ACount = 0 then
Result := Chr(Ord('A') + ColID - 1) + IntToStr(RowID);
if ACount = 1 then
Result := 'A' + Chr(Ord('A') + APos - 1) + IntToStr(RowID);
if ACount > 1 then
Result := Chr(Ord('A') + ACount - 1) + Chr(Ord('A') + APos - 1) + IntToStr(RowID);
end;
/////////TADOQuery
function getData(ds: TDataSet): OleVariant;
var
Data: OLEVariant;
i,j,k : Integer;
begin
rowCount := ds.RecordCount-Pos('|', CurDS.Columns.Items[i].Title.Caption) ;
colCount := ii;//ds.FieldCount;
Data := VarArrayCreate([1, rowCount, 1, colCount], varVariant); //1，rowCount 表示第一维数组的上下标，1，colCount表示第二维数组的上下标
i := 1;
{ for j := 0 to colCount - 1 do
begin
