如何根据单元格值将新的excel工作表保存到可变位置

Sub SaveNewWorksheet()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim savePath As String
    
    ' 获取当前工作表
    Set ws = ThisWorkbook.ActiveSheet
    
    ' 获取要保存的位置
    savePath = "C:\Path\To\Save\" & ws.Range("A1").Value & ".xlsx"
    
    ' 创建新的工作表
    Set newWs = ThisWorkbook.Worksheets.Add
    
    ' 将当前工作表的内容复制到新的工作表
    ws.Cells.Copy newWs.Cells
    
    ' 保存新的工作表
    newWs.SaveAs savePath
    
    ' 关闭新的工作表
    newWs.Close
    
    ' 释放对象
    Set newWs = Nothing
    Set ws = Nothing
End Sub