有没有一种巧妙的方法将值从一个工作簿复制到另一个工作簿？

Sub CopyValuesBetweenWorkbooks()
    Dim SourceWorkbook As Workbook
    Dim TargetWorkbook As Workbook
    Dim SourceSheet As Worksheet
    Dim TargetSheet As Worksheet
    
    ' 打开源工作簿和目标工作簿
    Set SourceWorkbook = Workbooks.Open("C:\path\to\source\workbook.xlsx")
    Set TargetWorkbook = Workbooks.Open("C:\path\to\target\workbook.xlsx")
    
    ' 设置源工作表和目标工作表
    Set SourceSheet = SourceWorkbook.Sheets(1)
    Set TargetSheet = TargetWorkbook.Sheets(1)
    
    ' 复制源工作表的值
    SourceSheet.Range("A1:B10").Copy
    
    ' 粘贴到目标工作表的相应位置
    TargetSheet.Range("A1").PasteSpecial xlPasteValues
    
    ' 关闭源工作簿，不保存更改
    SourceWorkbook.Close SaveChanges:=False
    
    ' 提示操作完成
    MsgBox "Values have been copied successfully.", vbInformation
End Sub