ExportDBGridEhToXlsx(grd1,dlgSave1.FileName,[xlsxColoredEh],True);       //xlsxDataAsDisplayText,True);

procedure TForm1.Button1Click(Sender: TObject);
var t: Integer;
begin
  MemTableEh2.First;
  while not MemTableEh2.Eof do
   begin
      t := MemTableEh2.FieldValues['Id'];
      MemTableEh2.Next;
   end;
  SaveDBGridEhToExportFile(TDBGridEhExportAsOLEXLS, grd1, 'h:\myresult.xlsx', true);
end;

procedure TOffice.actExportXLSExecute(Sender: TObject);
var ExpClass:TDBGridEhExportClass;
    Ext:String;
begin
  SaveDialog1.FileName := 'file1';
  if (ActiveControl is TDBGridEh)
   then
    if SaveDialog1.Execute
     then
      begin
       case SaveDialog1.FilterIndex of
        1: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
        2: begin ExpClass := TDBGridEhExportAsCSV; Ext  := 'csv'; end;
        3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
        4: begin ExpClass := TDBGridEhExportAsRTF; Ext  := 'rtf'; end;
        5: begin ExpClass := TDBGridEhExportAsXLS; Ext  := 'xls'; end;
        6: begin ExpClass := TDBGridEhExportAsOLEXLS; Ext :='xlsx'; 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,dbgOffice,SaveDialog1.FileName,True);
         end;
      end;
end;