用于保存工作表的VBA用户表单按钮

Question

我目前有一个由不同用户表单管理的Excel文档。我想在编辑文档后向我的一个用户表单添加一个保存选项（按钮）。

因此，我想知道是否有代码可以打开保存或另存为... 窗口？

我想要实现的是将文件保存为普通的.xsl文件，而不是.xslm文件保存在用户可以选择的位置（来自用户表单）。

Answer 1

这样的东西......？

Sub test()

Dim vSave_File As Variant

vSave_File = Application.GetSaveAsFilename("Test.xls", "Excel files (*.xls),*.xls", 1, "Dialog Title")

End Sub