在他人的DBGridEh導出到Excel的基礎上進行改進，增加功能如下： 1、支持多個DBGridEH同時導出到Excel的不同Sheet頁 2、進度條與數據進度保持一致 3、增加了進度百分比顯示 //調用方法: procedure TForm1.Button1Click(Sender: TObject); var DbOut: TDBGridEhToExcel; i: integer; begin try DbOut := TDBGridEhToExcel.Create(Self); for i := 0 to 9 do //初始化數組 begin DbOut.DBGridEhRecAry[i].TempDBGridEh := nil; DbOut.DBGridEhRecAry[i].TitleName := ''; DbOut.DBGridEhRecAry[i].SheetTabName := ''; end; //有多少個DBGridEh的數據要導出，此處表示兩個 DbOut.DBGridEhRecLength := 2; //統計結果一 DbOut.DBGridEhRecAry[0].TempDBGridEh := dbgSpotCheckCount; DbOut.DBGridEhRecAry[0].TitleName := '統計結果一'; DbOut.DBGridEhRecAry[0].SheetTabName := '統計結果一'; //統計結果二 DbOut.DBGridEhRecAry[1].TempDBGridEh := dbgValuationCount; DbOut.DBGridEhRecAry[1].TitleName := '統計結果二'; DbOut.DBGridEhRecAry[1].SheetTabName := '統計結果二'; DbOut.TitleName := '統計結果'; DbOut.ShowProgress := True; DbOut.ShowOpenExcel := True; DbOut.ExportToExcel; finally FreeAndNil(DbOut); end; end; 還可以改進的地方，比如： 1、標題欄占用幾行，字體，字體顏色，字體大小，背景顏色可以封裝提供設置方法； 2、字段標題字體，字體顏色，字體大小； 3、表格樣式設置； 就是動態數據不會封裝到類里面，如果有高人封裝得更好一些，請發一份我；