unit Unit_DBGridEhToExcel; interface uses SysUtils, Variants, Classes, Graphics, Controls, Forms, Excel2000, ComObj, Dialogs, DB, DBGridEh, windows,ComCtrls,ExtCtrls; type TDBGridEhToExcel = class(TComponent) private FProgressForm: TForm; {进度窗体} Ftem