VBA的问题-从一个工作簿复制到另一个工作簿？

Sub CopyDataBetweenWorkbooks()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open("source.xlsx")
    
    ' 打开目标工作簿
    Set targetWorkbook = Workbooks.Open("target.xlsx")
    
    ' 定义源和目标的工作表
    Set sourceWorksheet = sourceWorkbook.Worksheets("Sheet1")
    Set targetWorksheet = targetWorkbook.Worksheets("Sheet1")
    
    ' 定义源和目标的范围
    Set sourceRange = sourceWorksheet.Range("A1:D10")
    Set targetRange = targetWorksheet.Range("A1")
    
    ' 复制数据
    sourceRange.Copy targetRange
    
    ' 关闭工作簿并保存
    sourceWorkbook.Close SaveChanges:=False
    targetWorkbook.Close SaveChanges:=True
End Sub