VBA从一个工作簿复制到另一个工作簿

Sub CopyWorkbook()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open("源工作簿路径")
    
    ' 打开目标工作簿
    Set targetWorkbook = Workbooks.Open("目标工作簿路径")
    
    ' 复制源工作簿的数据到目标工作簿
    sourceWorkbook.Sheets("源工作表名称").UsedRange.Copy targetWorkbook.Sheets("目标工作表名称").Range("A1")
    
    ' 关闭工作簿
    sourceWorkbook.Close SaveChanges:=False
    targetWorkbook.Close SaveChanges:=True
    
    ' 释放对象
    Set sourceWorkbook = Nothing
    Set targetWorkbook = Nothing
    
    MsgBox "数据已成功复制到目标工作簿。"
End Sub