begin
SaveDialog1.DefaultExt:='xls';
SaveDialog1.Filter:='Excel文件(*.xls)|*.xls';
if SaveDialog1.Execute then
begin
f1main.write(SaveDialog1.FileName,f1fileexcel5);
Application.MessageBox('保存到Excel成功!', '', MB_OK +
MB_ICONINFORMATION);
end;
end;