将DBGridEh中数据导出到Excel

最新推荐文章于 2023-04-04 22:53:59 发布

deyingjun2754

最新推荐文章于 2023-04-04 22:53:59 发布

阅读量178

点赞数

原文链接：http://www.cnblogs.com/3150379/archive/2008/10/02/1303188.html

版权

Code
procedure TForm1.Button3Click(Sender: TObject);
var ExpClass:TDBGridEhExportClass;
    Ext,strDate:String;
begin
strDate:=formatdatetime('yyyy',DataTimer.DateTime)+formatdatetime('mm',DataTimer.DateTime)+formatdatetime('dd',DataTimer.DateTime-1);

  SaveDialog1.FileName := '考勤检查记录'+strDate;
    if SaveDialog1.Execute then
    begin
      case SaveDialog1.FilterIndex of
        1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
        2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
        3: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
        //4: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'html'; end;
        //5: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;

      else
        ExpClass := nil; Ext := '';
      end;
      if ExpClass <> nil then
      begin
        if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <>
           UpperCase(Ext) then
          SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
        SaveDBGridEhToExportFile(ExpClass,dbjg,
             SaveDialog1.FileName,true);
      end;
    end;
end;

useing DBGridEhImpExp;

转载于:https://www.cnblogs.com/3150379/archive/2008/10/02/1303188.html