vba - 复制两个 Excel 实例之间的范围

Question

我正在运行两个独立的 Excel 实例，并尝试将数据从一个工作簿中的范围复制到另一个工作簿中。

我有这个代码:

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技能不太好，两周前才开始学习。

Answer 1

如果您想避免使用剪贴板，并假设您对另一个 Excel 实例 (xlApp) 的句柄是正确的，那么您应该能够使用数组来获取和设置数据。

Sub CopyValues()
    Dim xlApp As Excel.Application
    Dim Src As Range
    Dim Dst As Range
    Dim Vals() as Variant

    Set xlApp = GetObject(, "Excel.Application")

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

    Vals = Src
    Dst.Value = Vals
End Sub