在两个Excel实例之间复制值时遇到运行时错误9

Question

我是Excel VBA的新手，并且对如何在两个Excel实例之间复制和访问宏感到困惑。为了提高性能，需要两个Excel实例，因为它们在合并时不能很好地发挥作用。

我已尝试根据帖子Copy Range between two instances of excel的建议进行以下操作。

当我到达Set Dst =行时，出现错误9。我确定路径正确。

我尝试反转文件xlApp，以相反的顺序打开文件（不同的实例），验证扩展名，并向我的计算机行贿。

Sub CopyValues()
    'Test.xlsm is the source file
    'Testd.xlsm is the destination file
    Dim xlApp As Excel.Application
    Dim Src As Range
    Dim Dst As Range
    Dim Vals() As Variant

    Set xlApp = GetObject("C:\Users\Office\Desktop\Test.xlsm").Application

    Set Src = xlApp.Workbooks("Test.xlsm").Worksheets("Sheet1").Range("A1:A9")
    Set Dst = Workbooks("Testd.xlsm").Worksheets("Sheet1").Range("A1:A9")

    Vals = Src
    Dst.Value = Vals
End Sub

我不断收到run time error 9 run out of source file。如果目标文件用尽，我没有出错，也没有结果。