将宏放在单独的工作簿中以定位工作簿，将工作表中的值复制并粘贴到新工作簿中，并保存到原始工作簿的位置

Sub CopySheetToNewWorkbook()
    Dim newWorkbook As Workbook
    Dim currentWorkbook As Workbook
    Dim currentSheet As Worksheet
    
    ' 创建一个新的工作簿
    Set newWorkbook = Workbooks.Add
    
    ' 获取当前工作簿的引用
    Set currentWorkbook = ThisWorkbook
    
    ' 获取当前工作表的引用
    Set currentSheet = currentWorkbook.ActiveSheet
    
    ' 将当前工作表的值复制到新工作簿中
    currentSheet.Copy Before:=newWorkbook.Sheets(1)
    
    ' 关闭新工作簿的其他工作表
    Do While newWorkbook.Sheets.Count > 1
        newWorkbook.Sheets(newWorkbook.Sheets.Count).Delete
    Loop
    
    ' 保存新工作簿到原始工作簿的位置
    newWorkbook.SaveAs currentWorkbook.Path & "\" & "新工作簿名称.xlsx"
    
    ' 关闭新工作簿
    newWorkbook.Close
    
    ' 清理对象引用
    Set newWorkbook = Nothing
    Set currentWorkbook = Nothing
    Set currentSheet = Nothing
End Sub