Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
我目前有一个由不同用户表单管理的 excel 文档。我想在编辑文档后向我的一个用户表单添加一个保存选项(按钮)。
因此我想知道是否有代码可以打开“保存”或“另存为...”窗口?
我想要实现的是将文件保存为普通的 .xsl 文件,而不是 .xslm 文件保存在用户可以选择的位置(从用户表单中)。
像这样的东西……?
Sub test() Dim vSave_File As Variant vSave_File = Application.GetSaveAsFilename("Test.xls", "Excel files (*.xls),*.xls", 1, "Dialog Title") End Sub