Excel VBA使用重命名基于工作表的单元格值将工作表复制到新工作簿

Sub RenameAndCopySheet()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim newWb As Workbook
    Dim newWs As Worksheet
    Dim newName As String
    
    ' 获取当前工作簿和工作表
    Set wb = ThisWorkbook
    Set ws = wb.ActiveSheet
    
    ' 获取新工作簿和工作表
    Set newWb = Workbooks.Add
    Set newWs = newWb.Sheets(1)
    
    ' 获取新工作表的名称
    newName = ws.Range("A1").Value
    
    ' 重命名新工作表
    newWs.Name = newName
    
    ' 复制当前工作表到新工作簿
    ws.Copy Before:=newWs
    
    ' 保存新工作簿
    newWb.SaveAs "新工作簿路径\新工作簿名称.xlsx"
    
    ' 关闭新工作簿
    newWb.Close
    
    ' 释放对象
    Set newWs = Nothing
    Set newWb = Nothing
    Set ws = Nothing
    Set wb = Nothing
End Sub