VBA：默认情况下将具有名称的文件保存在特定文件夹中答案

【问题标题】：VBA: Save a file with a name by default in a specific folderVBA：默认情况下将具有名称的文件保存在特定文件夹中
【发布时间】：2020-02-17 16:23:20
【问题描述】：

我想在 Excel 2010 中创建一个宏，用户可以将文件保存在特定文件夹中，但默认情况下会给出文件的名称，无法更改由用户。 这是为了避免用户单击其他文件以查找特定文件夹以保存文件并更改文件名。这就是我所拥有的：

ActiveWorkbook.Save
name = "File Name"
folder = Application.GetSaveAsFilename(name)
ActiveWorkbook.SaveAs Filename:= folder & "xlsm"

【问题讨论】：

【解决方案1】：

一个选项是在从另存为对话框返回后强制执行此规则。由于您只对文件夹感兴趣，因此请像这样构建您的文件名：

ActiveWorkbook.SaveAs Filename:=fso.GetParentFolderName(folder) & "\" & name & ".xlsm"

这需要参考 Microsoft Scripting Runtime 并像这样声明 fso：

Dim fso As FileSystemObject
Set fso = New FileSystemObject

【讨论】：