Excel 2003 VBA:将工作表移动到由变量引用的新工作簿

Sub MoveWorksheetToNewWorkbook()
    Dim newWorkbook As Workbook
    Dim currentWorksheet As Worksheet
    Dim newWorksheet As Worksheet
    
    '获取当前工作表
    Set currentWorksheet = ActiveSheet
    
    '创建新工作簿
    Set newWorkbook = Workbooks.Add
    
    '将当前工作表移动到新工作簿
    currentWorksheet.Copy Before:=newWorkbook.Worksheets(1)
    
    '删除新工作簿中原始的工作表
    Application.DisplayAlerts = False
    newWorkbook.Worksheets(1).Delete
    Application.DisplayAlerts = True
    
    '获取新工作簿中的工作表
    Set newWorksheet = newWorkbook.Worksheets(1)
    
    '将新工作簿保存到本地
    newWorkbook.SaveAs "C:\NewWorkbook.xls"
    
    '关闭新工作簿
    newWorkbook.Close
End Sub