| |
Book1のSheet1で、
Book2のデータをBook3にコピーしたいときの記述について教えてください。
Book1のSheet1はこのようになっていて、パス・ファイル名とシート名、セルを
それぞれ入力できるようになっています。
A B C D E F
1 C:\book2.XLS Sheet3 A1 C:\book3.XLS Sheet2 F1
2 C:\book2.XLS Sheet3 A2 C:\book3.XLS Sheet2 F2
この処理を記述するときに、
i = 1
Workbooks.Open Filename:=(Sheets("Sheet3").Range("M" & i))
Sheets(Sheets("Sheet3").Range("C" & i)).Range(Sheets("Sheet3").Range("D" & i)).Select
Selection.Copy
Workbooks.Open Filename:=(Sheets("Sheet3").Range("N" & i))
Sheets(Sheets("Sheet3").Range("K" & i)).Range(Sheets("Sheet3").Range("L" & i)).Select
Application.CutCopyMode = False
i = i + 1
と、書くとBook2を開いたあとは、Book1を指定し直せていないので、
当然ですが、Book2のシート名を取得できなくなります。
うまくBook1,2,3を指定し分ける方法がありましたら、
是非ご教授お願いします。
|
|
Ｇ一朗
- 12/3/23(金) 13:23 -
