放一个saveDialog1空间
procedure Trenyuanxinxi.N7Click(Sender: TObject);
var
ls_string:string;
begin
if saveDialog1.Execute then
ls_string := saveDialog1.FileName;
// ls_string:=ChooseFolder(handle,'请选择导出文件存放目录');
if ls_string<>'' then
begin
ls_string:=ls_string+'.xls';
SaveDBGridEhToExportFile(TDBGridEhExportAsXLS,DBGridEh1,ls_string,true);
application.messagebox(pchar(caption+'导出成功!'),'提示',mb_ok);
end;
end;