procedure TForm3.excel1Click(Sender: TObject);
var
SaveDialog:TSaveDialog;
begin
try
try
SaveDialog:=TSaveDialog.Create(nil);
SaveDialog.Filter:='EXCEL电子表格|*.XLS';
//if dbgrdh1.SelectedRows.Count=0 then
//begin
//ShowMessage('请先选中要导出的数据');
//Exit;
//end;
if SaveDialog.Execute thenbeginSaveDialog.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) thenbeginif application.MessageBox('文件名已存在，是否覆盖   ', '提示', MB_ICONASTERISK or MB_OKCANCEL)<>idok thenexit;end;Screen.Cursor := crHourGlass;SaveDBGridEhToExportFile(TDBGridEhExportAsXls,dbgrdh1,SaveDialog.FileName,true);Screen.Cursor := crDefault;MessageBox(Handle, '导出成功  ', '提示', MB_OK +MB_ICONINFORMATION);end;
excepton e: exception dobeginApplication.MessageBox(PChar(e.message), '错误', MB_OK + MB_ICONSTOP);end;
end;
finallySaveDialog.Free;
end;
end;

unit UExportExcel;interface
usesWinapi.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;
/// <summary>
/// 导出全部记录数据到excel，思路是用dbgrideh的方法
/// </summary>
type TExportExcel =classpublicclass procedure exportexcelall(var ADbgrdh:TDBGridEh);
end;implementation
class procedure TExportExcel.exportexcelall(var ADbgrdh:TDBGridEh);
var
SaveDialog:TSaveDialog;
begin
try
try
//设置报错对话框的属性
SaveDialog:=TSaveDialog.Create(nil);
SaveDialog.Filter:='EXCEL电子表格|*.XLS';
if SaveDialog.Execute thenbegin//设置文件名后缀SaveDialog.FileName:=SaveDialog.FileName+'.xls';//判断文件是否已经存在if FileExists(SaveDialog.FileName) thenbeginif application.MessageBox('文件名已存在，是否覆盖   ', '提示', MB_ICONASTERISK or MB_OKCANCEL)<>idok thenexit;end;Screen.Cursor := crHourGlass; //屏幕鼠标沙漏忙碌状态//导出记录
     SaveDBGridEhToExportFile(TDBGridEhExportAsXls,ADbgrdh,SaveDialog.FileName,true);Screen.Cursor := crDefault; //鼠标恢复默认状态//提示导出成功MessageBox(0, '导出成功  ', '提示', MB_OK +MB_ICONINFORMATION);end;
except//异常报错on e: exception dobeginApplication.MessageBox(PChar(e.message), '错误', MB_OK + MB_ICONSTOP);end;
end;
finallySaveDialog.Free;
end;
end;
end.

procedure TForm3.excel1Click(Sender: TObject);
begin
TExportExcel.exportexcelall(dbgrdh1);
end;