方法1：独立事件单独写法
procedure TForm3.excel1Click(Sender: TObject);varSaveDialog:TSaveDialog;begintrytrySaveDialog:=TSaveDialog.Create(nil);SaveDialog.Filter:='EXCEL电子表格|*.XLS';//if dbgrdh1.SelectedRows.Count=0 then//begin//ShowMessage('请先选中要导出的数据');//Exit;//end;if SaveDialog.Execute then begin SaveDialog.FileName:=SaveDialog.FileName+'.xls';// ShowMessage(SaveDialog.FileName);// ShowMessage(Length(SaveDialog.FileName).ToString());// ShowMessage(Length('E:\翠玲研究delphi\工作小助手\工作小助手输出文件\导出数据到excel\666.xls').ToString());// ShowMessage(Length('E:\delphi\\\excel\666.xls').ToString());// ShowMessage(Length('翠玲研究工作小助手工作小助手输出文件导出数据到').ToString());// ShowMessage(Copy(SaveDialog.FileName,Length(SaveDialog.FileName)-2,3)); if FileExists(SaveDialog.FileName) then begin if application.MessageBox('文件名已存在，是否覆盖 ', '提示', MB_ICONASTERISK or MB_OKCANCEL)<>idok then exit; end; Screen.Cursor := crHourGlass; SaveDBGridEhToExportFile(TDBGridEhExportAsXls,dbgrdh1,SaveDialog.FileName,true); Screen.Cursor := crDefault; MessageBox(Handle, '导出成功 ', '提示', MB_OK +MB_ICONINFORMATION); end;except on e: exception do begin Application.MessageBox(PChar(e.message), '错误', MB_OK + MB_ICONSTOP); end;end;finally SaveDialog.Free;end;end; 方法2：类写法
unit UExportExcel;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Data.DB, Data.Win.ADODB, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, Clipbrd, Vcl.Menus, Vcl.StdCtrls, DBGridEhGrouping, ToolCtrlsEh, DBGridEhToolCtrls, DynVarsEh, EhLibVCL, GridsEh, DBAxisGridsEh, DBGridEh,EhLibADO,DBGridEhImpExp;////// 导出全部记录数据到excel，思路是用dbgrideh的方法/// type TExportExcel =class public class procedure exportexcelall(var ADbgrdh:TDBGridEh);end;implementationclass procedure TExportExcel.exportexcelall(var ADbgrdh:TDBGridEh);varSaveDialog:TSaveDialog;begintrytry//设置报错对话框的属性SaveDialog:=TSaveDialog.Create(nil);SaveDialog.Filter:='EXCEL电子表格|*.XLS';if SaveDialog.Execute then begin //设置文件名后缀 SaveDialog.FileName:=SaveDialog.FileName+'.xls'; //判断文件是否已经存在 if FileExists(SaveDialog.FileName) then begin if application.MessageBox('文件名已存在，是否覆盖 ', '提示', MB_ICONASTERISK or MB_OKCANCEL)<>idok then exit; end; Screen.Cursor := crHourGlass; //屏幕鼠标沙漏忙碌状态 //导出记录 SaveDBGridEhToExportFile(TDBGridEhExportAsXls,ADbgrdh,SaveDialog.FileName,true); Screen.Cursor := crDefault; //鼠标恢复默认状态 //提示导出成功 MessageBox(0, '导出成功 ', '提示', MB_OK +MB_ICONINFORMATION); end;except //异常报错 on e: exception do begin Application.MessageBox(PChar(e.message), '错误', MB_OK + MB_ICONSTOP); end;end;finally SaveDialog.Free;end;end;end.
类引用，记得添加引用单元类名称（UExportExcel）；
procedure TForm3.excel1Click(Sender: TObject);beginTExportExcel.exportexcelall(dbgrdh1);end;
附加效果图
