Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10660 / 76734

←次へ　｜　前へ→


	【71620】別ファイルを指定

Ｇ一朗 - 12/3/23(金) 13:23 -


	引用なし

	パスワード

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を指定し分ける方法がありましたら、
是非ご教授お願いします。

3 hits

▼

【71620】別ファイルを指定 Ｇ一朗 12/3/23(金) 13:23

≪