VBA尝试指定新创建的工作簿而不是活动工作簿(将一些数据粘贴到新工作簿中)

Sub CreateNewWorkbook()
    Dim newWorkbook As Workbook
    Set newWorkbook = Workbooks.Add ' 创建新的工作簿
    
    ' 在新工作簿中进行操作
    With newWorkbook
        ' 将数据粘贴到新工作簿中
        .Sheets(1).Range("A1").PasteSpecial xlPasteValues
        ' 其他操作...
    End With
    
    ' 保存并关闭新工作簿
    newWorkbook.SaveAs "C:\路径\文件名.xlsx"
    newWorkbook.Close
End Sub