如何用VBA基于xlsm模板直接创建并保存宏启用工作簿？

你的问题核心是**SaveAs方法未指定宏启用工作簿的文件格式**，Excel默认按无宏格式保存，和模板的宏内容冲突，导致报错。

问题原因 #

原代码中ActiveWorkbook.SaveAs仅指定了文件名，未明确文件格式。Excel默认会使用xlOpenXMLWorkbook（无宏xlsx格式，数值51）保存，而模板包含VB项目，无法保存到无宏格式，因此弹出提示并触发错误。

修正方案 #

在SaveAs时必须指定FileFormat:=xlOpenXMLWorkbookMacroEnabled（对应数值52），强制保存为宏启用的xlsm格式。同时建议避免使用ActiveWorkbook，直接引用新建的工作簿对象，防止窗口切换导致的引用错误，还要确保每个新工作簿文件名唯一。

修正后的完整代码 #

Sub vba_create_workbook()
    Dim newWorkbook As Workbook
    Dim templatePath As String
    Dim saveDirectory As String
    
    ' 替换为你的模板文件路径
    templatePath = "C:\YourFolder\YourTemplate.xlsm"
    ' 替换为保存新文件的目录（末尾加反斜杠）
    saveDirectory = "C:\YourSaveFolder\"
    
    ' 创建第一个宏启用工作簿
    Set newWorkbook = Workbooks.Add(Template:=templatePath)
    newWorkbook.SaveAs _
        Filename:=saveDirectory & "New_Workbook_1.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled
    
    ' 创建第二个宏启用工作簿
    Set newWorkbook = Workbooks.Add(Template:=templatePath)
    newWorkbook.SaveAs _
        Filename:=saveDirectory & "New_Workbook_2.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled
    
    ' 可选：关闭工作簿（如需）
    ' newWorkbook.Close SaveChanges:=True
End Sub

关键说明 #

• 指定文件格式：xlOpenXMLWorkbookMacroEnabled是Excel内置常量，对应xlsm格式，确保保存后保留宏功能。
• 避免ActiveWorkbook：直接用Set newWorkbook = Workbooks.Add(...)获取新建工作簿的引用，比依赖活动窗口更稳定。
• 唯一文件名：给每个新文件加编号（如_1、_2），防止覆盖或保存冲突。

内容的提问来源于stack exchange，提问作者Saloni