excel vba代码，实现将工作簿中的工作表拆分成工作簿，不保留原格式，只有值

以下是一个简单的 Excel VBA 代码示例，可以将当前工作簿中的每个工作表分别保存为一个新工作簿，并只保留值（不保留原格式）。

Sub SplitWorksheetsToWorkbooks()
    Dim wb As Workbook
    Dim newWb As Workbook
    Dim ws As Worksheet
    Dim savePath As String
    
    Set wb = ActiveWorkbook
    savePath = wb.Path & "\" ' 在同一目录下保存
    
    For Each ws In wb.Worksheets
        Set newWb = Workbooks.Add ' 创建新工作簿
        ws.Copy ' 将当前工作表复制到新的工作簿中
        With newWb
            .SaveAs Filename:=savePath & ws.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook ' 以当前工作表命名并保存
            .Close False ' 关闭工作簿而不保存更改，以便进行下一个迭代
        End With
    Next ws
End Sub

请注意，此代码将使用默认的 Excel 文件格式 `.xlsx` 保存新工作簿。如果需要使用其他文件格式，请相应地更改 `FileFormat` 参数。