0

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

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

我想要实现的是将文件保存为普通的 .xsl 文件,而不是 .xslm 文件保存在用户可以选择的位置(从用户表单中)。

4

1 回答 1

2

像这样的东西……?

Sub test()

Dim vSave_File As Variant

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

End Sub
于 2013-01-24T11:45:40.387 回答