VBA -将信息复制到新工作簿

Sub CopyToNewWorkbook()
    Dim wbSource As Workbook
    Dim wbTarget As Workbook
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    
    ' 设置源工作簿和目标工作簿
    Set wbSource = ThisWorkbook
    Set wbTarget = Workbooks.Add
    
    ' 设置源工作表和目标工作表
    Set wsSource = wbSource.Worksheets("Sheet1") ' 修改为源工作表的名称
    Set wsTarget = wbTarget.Worksheets("Sheet1") ' 修改为目标工作表的名称
    
    ' 复制源工作表的数据到目标工作表
    wsSource.UsedRange.Copy wsTarget.Range("A1")
    
    ' 保存目标工作簿
    wbTarget.SaveAs "C:\目标工作簿路径\目标工作簿名称.xlsx" ' 修改为目标工作簿的保存路径和名称
    
    ' 关闭目标工作簿
    wbTarget.Close
    
    ' 释放对象
    Set wsSource = Nothing
    Set wsTarget = Nothing
    Set wbSource = Nothing
    Set wbTarget = Nothing
End Sub