复制两个excel实例之间的范围

我正在运行两个单独的Excel实例,我正在尝试将数据从一个工作簿中的Range复制到另一个工作簿.

我有这个代码:

Sub CopyValues()
Dim xlApp As Excel.Application
Set xlApp = GetObject(, "Excel.Application")
Dim Src As Range
Dim Dst As Range
    Set Src = xlApp.ActiveSheet.Range("A1:A9")
    Set Dst = Workbooks("Book1.xlsm").Worksheets("Sheet1").Range("A1:A9")
    Src.Copy Dst
End Sub

它不会返回任何错误,但它不会复制值,也会在最后一行尝试此操作

Src.Value = Dst.Value

仍然无所作为

我的VBA技能不太好,刚开始在2周前学习它.