多个dbgrid 如何保存到excel

如下代码可以实现单个dbgrideh 导到excel ，现在form1上有多个dbgrideh 不知如何导出到单个excel中var ExpClass:TDBGridEhExportClass;
  Ext:String;
begin
  SaveDialog1.FileName := ' ';
  if SaveDialog1.Execute then
  begin
  case SaveDialog1.FilterIndex of
  1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls '; end;
  2: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm '; end;
  3: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf '; end;
  4: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt '; end;
  5: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv '; end;
  else
  ExpClass := nil; Ext := ' ';
  end;
  if ExpClass <> nil then
  begin
  if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <>
  UpperCase(Ext) then
  SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
  SaveDBGridEhToExportFile(ExpClass,dbgrideh1,
  SaveDialog1.FileName,true);
  end;
  end;
end;