哪位达人,有着这方面的经验,谢谢。

解决方案 »

  1.   

    SaveDBGridEhToExportFile(TDBGridEhExportAsText,DBGridEh1,'c:\temp\file1.txt',False);
    SaveDBGridEhToExportFile(TDBGridEhExportAsText,DBGridEh1,'c:\temp\file1.xls',False);
      

  2.   

    引用DBGridEhImpExp单元
    然后
    procedure TFrmQuery.BtnExportClick(Sender: TObject);
    var
      exp: TDBGridEhExportAsXLS;
    begin
      if dlgSave1.Execute then
      begin
        try
          exp:=TDBGridEhExportAsXLS.Create;
          exp.DBGridEh:=DBGridEh1;
          exp.ExportToFile(dlgSave1.FileName,True);
        finally
          exp.Free;
        end;
      end;
    end;