Excel VBA:将工作表复制到现有工作簿(变量)

Sub CopySheetToExistingWorkbook()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    
    ' 设置源工作簿和目标工作簿
    Set sourceWorkbook = ThisWorkbook ' 当前工作簿
    Set targetWorkbook = Workbooks.Open("C:\目标工作簿路径.xlsx") ' 替换为目标工作簿的路径
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = sourceWorkbook.Sheets("源工作表名称") ' 替换为源工作表的名称
    Set targetSheet = targetWorkbook.Sheets.Add(After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count))
    
    ' 复制源工作表到目标工作簿
    sourceSheet.Copy Before:=targetSheet
    
    ' 关闭源工作簿，保存目标工作簿
    sourceWorkbook.Close SaveChanges:=False
    targetWorkbook.Save
    
    ' 清理对象引用
    Set sourceSheet = Nothing
    Set targetSheet = Nothing
    Set sourceWorkbook = Nothing
    Set targetWorkbook = Nothing
End Sub