VBA代码不会将数据范围复制到其他工作簿

Sub CopyDataToOtherWorkbook()
    Dim sourceRange As Range
    Dim destinationWorkbook As Workbook
    Dim destinationSheet As Worksheet
    
    ' 设置源数据范围
    Set sourceRange = ThisWorkbook.Worksheets("Sheet1").Range("A1:B10")
    
    ' 打开目标工作簿
    Set destinationWorkbook = Workbooks.Open("C:\目标工作簿.xlsx")
    
    ' 获取目标工作簿的工作表
    Set destinationSheet = destinationWorkbook.Worksheets("Sheet1")
    
    ' 将源数据范围复制到目标工作表
    sourceRange.Copy destinationSheet.Range("A1")
    
    ' 关闭并保存目标工作簿
    destinationWorkbook.Close SaveChanges:=True
    
    ' 清除对象引用
    Set destinationSheet = Nothing
    Set destinationWorkbook = Nothing
    Set sourceRange = Nothing
End Sub