请求协助添加保存为.XLSM格式的VBA命令

没问题，我来帮你搞定这个需求！下面是专门用来将文件保存为.xlsm格式的VBA代码，包含完整的保存命令和实用的错误处理、路径容错逻辑：

核心保存代码（保存当前工作簿） #

Sub SaveCurrentWorkbookAsXLSM()
    Dim savePath As String
    Dim fileName As String
    
    ' 设置保存路径：优先用当前文件所在文件夹，未保存过则默认到文档目录
    savePath = ThisWorkbook.Path
    If savePath = "" Then savePath = Environ("USERPROFILE") & "\Documents"
    
    ' 自定义文件名：示例用当前日期+固定前缀，可按需修改
    fileName = "Macro_Enabled_File_" & Format(Date, "YYYY-MM-DD") & ".xlsm"
    
    On Error GoTo SaveErrorHandler ' 捕获保存过程中的错误
    
    ' 关键：指定XLSM格式的核心命令
    ThisWorkbook.SaveAs _
        Filename:=savePath & "\" & fileName, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled ' 对应.xlsm格式的内置常量
    
    MsgBox "文件已成功保存：" & vbNewLine & savePath & "\" & fileName, vbInformation, "保存完成"
    Exit Sub

SaveErrorHandler:
    MsgBox "保存失败：" & Err.Description, vbCritical, "错误提示"
End Sub

保存新建工作簿为XLSM的代码 #

如果是要创建新工作簿并直接保存为.xlsm，可以用这段：

Sub SaveNewWorkbookAsXLSM()
    Dim newWorkbook As Workbook
    Set newWorkbook = Workbooks.Add
    
    ' 这里可以添加对新工作簿的操作（比如写入数据、设置格式等）
    
    ' 保存新工作簿
    newWorkbook.SaveAs _
        Filename:=Environ("USERPROFILE") & "\Documents\New_Macro_Workbook.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled
    
    MsgBox "新工作簿已保存为XLSM格式！", vbInformation
End Sub

关键细节说明 #

• FileFormat参数：xlOpenXMLWorkbookMacroEnabled是Excel内置的常量，专门对应启用宏的.xlsm格式，一定要用这个参数，不能直接写文件扩展名
• 路径容错：代码里处理了当前文件未保存的情况，自动 fallback 到系统文档文件夹
• 错误处理：添加了错误捕获，避免代码崩溃，同时给出明确的错误提示
• 自动覆盖设置：如果想跳过“文件已存在”的提示直接覆盖，可以在SaveAs前加一行Application.DisplayAlerts = False，保存后再恢复Application.DisplayAlerts = True

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