如何将工作簿另存为模板

Question

我正在创建一个电子表格以用作数据输入表单。它具有一个选项卡，其中包含一堆主用户可以编辑的配置信息。我的想法是，进行任何更改后，我想通过宏将其保存为模板，以便可以为用户轻松创建新工作簿。

我发现了

file_name = Environ("localappdata") & "\Roaming\Microsoft\Templates\"

将返回模板的正确路径，但是每当我尝试将文件保存到该路径时，都会出现异常。

file_name = Environ("localappdata") & "\Roaming\Microsoft\Templates\MasterIntakeForm"
ActiveWorkbook.SaveAs Filename:=file_name, _
    FileFormat:=xlOpenXMLTemplateMacroEnabled, _
    AccessMode:=xlExclusive, _
    ConflictResolution:=Excel.XlSaveConflictResolution.xlLocalSessionChanges

您可以看到文件名由于某种原因被修改。该位置当前不存在该文件，因此冲突解决部分不是问题。在文件格式之后删除所有内容不会更改任何内容。

Answer 1

路径无效，请使用以下内容，其中包括Roaming文件夹：

file_name = Environ("appdata") & "\Microsoft\Templates\MasterIntakeForm"