Ehlib导出至excel时的问题

特点：一、不需安装Excel即可导出。二、有进度条。三、最多可以导出多少条，我没试，我试了5万条没有问题，时间也就是只需1-5分钟（我电脑较慢）。四、需安装ehlib组件。使用方法(注：别忘了uses DBGridToExcel;)：procedure TForm1.btn2Click(Sender: TObject);var DBGridEhToExcel: TDBGridEhToExcel; ExcelFileName: string;begin DBGridEhToExcel := TDBGridEhToExcel.Create(nil); try DBGridEhToExcel.TitleName := '导出测试'; DBGridEhToExcel.BeginDate := '开始日期：2005-07-01'; DBGridEhToExcel.EndDate := '结束日期：2005-07-18'; DBGridEhToExcel.UserName := '系统管理员'; DBGridEhToExcel.DBGridEh := DBGridEh1; DBGridEhToExcel.ShowProgress := True; if ExcelFileName = '' then begin ExcelFileName := 'c:\1.xls'; with TSaveDialog.Create(nil) do begin Filter := 'Microsoft Excel xls文件|*.xls'; DefaultExt := 'xls'; if not Execute then Exit else ExcelFileName := FileName; end; end; DBGridToExcel.FileName := ExcelFileName; DBGridEhToExcel.ExportToExcel; finally DBGridEhToExcel.Free; end;end;