[VBA编程/宏] VBA For Excel 中如何建立一个文件保存对话框

---

Dim fn As String
fn = Application.GetSaveAsFilename
ThisWorkbook.SaveAs fn

---