It seems that without Method->"Queued" Export will not wait for your choice. Use it then:
Method->"Queued"
Export
Button["Save", Export[SystemDialogInput["FileSave"], datalist, "Table"], Method -> "Queued"]
It works. Thank you.