procedure SaveDBGridDataToExcel(var ADbgrid: TDBGridEh);
var
  sd: TSaveDialog;
begin
  if not ADbgrid.DataSource.DataSet.IsEmpty then
    if ADbgrid.DataSource.DataSet.RecordCount > 0 then
    begin
      sd := TSaveDialog.Create(nil);
      try
        sd.Filter := 'Excel|*.xlsx';
        sd.Options := [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist,
          ofEnableSizing, ofExtensionDifferent];
        if sd.Execute then
        begin
          SaveDBGridEhToExportFile(TDBGridEhExportAsXlsx, ADbgrid,
            sd.FileName + '.xlsx', true);
        end
      finally
        FreeAndNil(sd);
      end;
    end;
end;