尝试将工作表复制到vba中的现有工作簿

Sub CopyWorksheet()
    Dim wbSource As Workbook
    Dim wbTarget As Workbook
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    
    ' 设置源工作簿和目标工作簿
    Set wbSource = ThisWorkbook ' 当前工作簿
    Set wbTarget = Workbooks("目标工作簿名") ' 目标工作簿名
    
    ' 设置源工作表和目标工作表
    Set wsSource = wbSource.Worksheets("源工作表名") ' 源工作表名
    Set wsTarget = wbTarget.Worksheets.Add(After:=wbTarget.Worksheets(wbTarget.Worksheets.Count))
    
    ' 复制源工作表到目标工作簿
    wsSource.Copy Before:=wsTarget
    
    ' 保存目标工作簿
    wbTarget.Save
    
    ' 关闭目标工作簿
    wbTarget.Close
End Sub