vba另存为xlsm表格

你可以使用以下VBA代码将当前工作簿另存为.xlsm文件格式：

Sub SaveAsXLSM()
    '另存为.xlsm文件格式
    Dim FilePath As String
    FilePath = Application.ThisWorkbook.Path & "\" & Application.ThisWorkbook.Name
    FilePath = Left(FilePath, InStrRev(FilePath, ".")) & "xlsm"
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Filename:=FilePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    Application.DisplayAlerts = True
End Sub

在该代码中，我们使用了 `ThisWorkbook.SaveAs` 方法并指定了文件格式参数 `xlOpenXMLWorkbookMacroEnabled`，它表示.xlsm文件格式。