ソースワークシートから異なるパスのターゲットワークシートに特定の範囲をコピーする

Question

Dim path_feb As String 
Dim path_mar As String 
Dim wkbk_feb As Workbook 
Dim wkbk_mar As Workbook 




path_feb = "D:\Tranzit\2016\feb\data_feb.xlsx" 
Set wkbk_feb = Workbooks.Open(path_feb) 


path_mar = "D:\Tranzit\2016\mar\data_mar.xlsx" 
Set wkbk_mar = Workbooks.Open(path_mar) 




Worksheets("monthly").Range("A2:A1000").Value = Windows("wkbk_feb").Worksheet("impuls").Range("A2:A1000").Value 
Worksheets("monthly").Range("B2:B1000").Value = Windows("wkbk_mar").Worksheet("impuls").Range("A2:A1000").Value 

End Sub 

このコードを操作するには少し助けが必要です。

問題はここから始まり：私はコピーしたい

1. D:\Tranzit\2016\feb\data_feb.xlsx
2. D:\Tranzit\2016\\mar\data_mar.xlsx
3. D:\Tranzit\2016\data_final.xlsm

：だから Worksheets("monthly").Range("A2:A1000").Value = Windows("wkbk_feb").Worksheet("impuls").Range("A2:A1000").Value

、私は別のパスを持つ3つのファイルを持っていますf ROMファイル1の範囲A2:A1000 "シート" Impulsから "シート" monthlyの範囲A2:A1000のファイル3まで。 "シート" monthly範囲B2:B1000 3を提出する "シート" Impulsからファイル2から

と

コピー範囲A2:A1000。

Answer 1

あなたがそれらを直接参照する必要があるので、あなたは、ブックオブジェクトとしてwkbk_febとwkbk_marを宣言：

wkbk_feb.Worksheets("impuls").... 

の代わりに、あなたは常に、ブックまたはワークシートを指定する必要があります何かを活性化または選択を。したがって、それは何かのように見えるはずです

wkbk_total.Worksheets("monthly")... = wkbk_feb.Worksheets("impuls")....