vba如何另存为xlsm格式

在VBA中，要将工作簿另存为`.xlsm`格式，你可以使用`SaveAs`方法，并指定文件扩展名为`.xlsm`。以下是一个简单的VBA代码示例，演示如何将当前活动工作簿另存为`.xlsm`格式：

```vba

Sub SaveWorkbookAsXlsm()

' 设置保存文件的路径和文件名

Dim SavePath As String

Dim SaveFile As String

SavePath = "C:PathToYourDirectory" ' 请将路径替换为实际的保存路径

SaveFile = "WorkbookName.xlsm" ' 请将文件名替换为你想要的文件名

' 将工作簿另存为 .xlsm 格式

ThisWorkbook.SaveAs Filename:=SavePath & SaveFile, FileFormat:=xlOpenXMLWorkbookMacroEnabled

End Sub

```

请将上述代码中的`SavePath`和`SaveFile`变量的值替换为你希望保存文件的路径和文件名。这段代码会保存当前活动的工作簿，并将其格式设置为启用宏的Excel工作簿（`.xlsm`）。

在运行此宏之前，请确保你有权限在指定的路径下创建文件。如果你没有更改路径或文件名的权限，VBA会显示一个错误消息。