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