请教从dbgrideh中快速度的导出到excel的问题

Question

我现在方法导出很慢，因为有上万条记录，请教快速度的方法

Answer 1

use DBGridEhImpExp
...
procedure Tfrm_repgro_base.exportexcel(dbgrideh1:tdbgrideh);
var
  ls_string:string;
begin
  ls_string:=ChooseFolder(handle,'请选择导出文件存放目录');
  if ls_string<>'' then
    begin
      ls_string:=ls_string+'\'+caption+'.xls';
      SaveDBGridEhToExportFile(TDBGridEhExportAsXLS,DBGridEh1,ls_string,true);
      application.messagebox(pchar(caption+'导出成功！'),'提示',mb_ok);
    end;
end;

Answer 2

blueshu(绝对是菜鸟)說的對﹐來晚了