procedure TForm6.FlatButton3Click(Sender: TObject);
begin try
exp1.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER);
except end;End;