Excelの2つのインスタンス間のコピー範囲

Question

2つの別々のインスタンスのExcelを実行していて、1つのブックの範囲から別のブックにデータをコピーしようとしています。

私はこのコードを持っている：

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週間前にそれを学び始めました。

Answer 1

だから私は私のコードが動作して得ることができ、問題は、ハンドルとあった。この変更：

Set xlApp = GetObject("c:\mypath\book1.xlsm").Application 

に

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

をし、また使用してコピーする方法を変更前回の回答からのご提案

この問題に直面している人のための完全なコードは、

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

Set xlApp = GetObject("c:\mypath\book1.xlsm").Application 

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

Vals = Src 
Dst.Value = Vals 
End Sub 

ありがとうございました。

Answer 2

クリップボードの使用を避け、他の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