VBA 新建工作表，写入数据后将工作表移动至新工作簿并保存至指定地址

VBA (Visual Basic for Applications) 是Excel内置的一种宏语言，用于自动化Excel任务。如果你想要新建一个工作表，在其中写入数据，然后将其移动到新的工作簿，并保存到特定路径，你可以按照以下步骤编写代码：

Sub MoveAndSaveWorksheet()
    ' 新建一个新的工作簿
    Dim newWorkbook As Workbook
    Set newWorkbook = Workbooks.Add
    
    ' 创建一个新的工作表
    Dim newSheet As Worksheet
    Set newSheet = newWorkbook.Worksheets.Add(After:=newWorkbook.Sheets(newWorkbook.Sheets.Count))
    
    ' 写入数据 (这里假设A1单元格有数据)
    newSheet.Cells(1, 1).Value = "示例数据"
    
    ' 移动现有工作表到新工作簿的第一个位置
    ActiveWorkbook.Sheets(1).Move Before:=newWorkbook.Sheets(1)
    
    ' 保存新工作簿到指定路径
    Dim savePath As String
    savePath = "C:\Users\YourUsername\Desktop\NewWorkbook.xlsx" ' 替换为你需要的文件路径
    newWorkbook.SaveAs Filename:=savePath
    
    ' 关闭不需要的工作簿
    ThisWorkbook.Close SaveChanges:=False
    
    ' 关闭活动的工作簿（即新创建并保存的工作簿）
    Application.Quit
End Sub

请注意，你需要替换`savePath`变量中的路径为你实际需要的保存位置。执行此宏前，请确保Excel已启动且当前活动工作簿是你想操作的那个。