使用VBA和按钮将单个工作表导出到新工作簿

Sub ExportWorksheetToNewWorkbook()
    Dim NewWorkbook As Workbook
    Dim CurrentWorksheet As Worksheet
    
    ' 获取当前工作表对象
    Set CurrentWorksheet = ActiveSheet
    
    ' 创建新工作簿
    Set NewWorkbook = Workbooks.Add
    
    ' 将当前工作表复制到新工作簿
    CurrentWorksheet.Copy Before:=NewWorkbook.Sheets(1)
    
    ' 删除新工作簿中默认的Sheet1
    Application.DisplayAlerts = False
    NewWorkbook.Sheets(1).Delete
    Application.DisplayAlerts = True
    
    ' 保存新工作簿
    Dim SavePath As String
    SavePath = "C:\Path\to\save\new\workbook.xlsx" ' 替换为实际保存路径
    NewWorkbook.SaveAs SavePath
    
    ' 关闭新工作簿
    NewWorkbook.Close SaveChanges:=False
    
    ' 清除对象引用
    Set NewWorkbook = Nothing
    Set CurrentWorksheet = Nothing
    
    MsgBox "工作表已成功导出到新工作簿。"
End Sub