VBA代码仅在我的新工作簿中保存2张工作表中的1张

Sub SaveWorksheet()
    Dim wb As Workbook
    Dim ws As Worksheet
    
    ' 创建新工作簿
    Set wb = Workbooks.Add
    
    ' 将第一张工作表复制到新工作簿
    ThisWorkbook.Sheets(1).Copy Before:=wb.Sheets(1)
    
    ' 关闭新工作簿中的其他工作表
    For Each ws In wb.Sheets
        If ws.Index <> 1 Then
            Application.DisplayAlerts = False
            ws.Delete
            Application.DisplayAlerts = True
        End If
    Next ws
    
    ' 保存新工作簿
    wb.SaveAs "C:\路径\文件名.xlsx" ' 替换为你想要保存的路径和文件名
    
    ' 关闭新工作簿
    wb.Close
    
    ' 释放对象
    Set ws = Nothing
    Set wb = Nothing
End Sub