使用Application.GetSaveAsFilename（）时包含扩展名

Question

我在VBA中使用Application.GetSaveAsFilename来实现我自己的自定义另存为功能。它在我这样做时有效：

Application.GetSaveAsFilename("defaultname")

File name字段显示默认名称。但是，预期的.xlsx扩展名不会显示在对话框中。好的，所以我会像这样添加它，对吗？

Application.GetSaveAsFilename("defaultname.xlsx")

当我这样做时，File name字段为空。显然，Excel不喜欢.，因为当我这样做时......

Application.GetSaveAsFilename("defaultnamexlsx")

...它在File name字段中显示 defaultnamexlsx ，但这显然不是我要查找的格式。

我是否必须做一些特别的工作才能让它发挥作用？

Answer 1

传递过滤器，它将自动附加：

Application.GetSaveAsFilename("defaultname", "Excel Files (*.xlsx), *.xlsx")