VBA另存为.xlsm文件格式重命名为指定单元格内的内容

你可以使用以下VBA代码来实现：

Sub SaveAsCellContent()
    Dim filePath As String
    Dim fileName As String
    
    '获取单元格内容
    fileName = Range("A1").Value
    
    '获取文件路径
    filePath = Application.ActiveWorkbook.Path & "\" & fileName & ".xlsm"
    
    '保存文件
    ActiveWorkbook.SaveAs Filename:=filePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    
End Sub

在这里，我们首先从单元格"A1"中获取文件名。然后，我们将文件名与文件路径组合起来，并使用"xlOpenXMLWorkbookMacroEnabled"文件格式将文件保存为.xlsm格式。你可以根据需要修改单元格的引用和文件格式。