Excel VBA質問箱 IV

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

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


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

10718 / 76807

←次へ　｜　前へ→


	【71635】Re:別ファイルを指定

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


	引用なし

	パスワード

▼UO3 さん：
>アップされた方法以外のコードもありますが、その前に。

失礼しました。実際のシートは他にも記載があるため
例では簡略化したのに、コードがそのままでした･･･。
下のようになります。

i = 1
Workbooks.Open Filename:=(Sheets("Sheet1").Range("A" & i))
Sheets(Sheets("Sheet1").Range("B" & i)).Range(Sheets("Sheet1").Range("C" & i)).Select
Selection.Copy
Workbooks.Open Filename:=(Sheets("Sheet1").Range("D" & i))
Sheets(Sheets("Sheet1").Range("E" & i)).Range(Sheets("Sheet1").Range("F" & i)).Select
Application.CutCopyMode = False
i = i + 1

>それと、Book1　は、このマクロが書かれたブックですか？

マクロはBook1に記載しています。
Book2とか3にはマクロの記述はありません。

>次に、転記元ブックはBook2、転記先ブックはBook3　と決まっていないのですか？
>それとも、各行ごとに、転記元ブックと転記先ブックがかわる可能性があるのですか？
転記先が複数になることはあまりないので、転記先はファイル参照はスキップしようと考えていますが、
転記元は複数ファイルあるのでこういう形で考えています。

>もし決まっているとしたら、たとえば１００行あったとして、Book2を１００回、Book3も１００回開くことになります。
>随分、無駄なことだと思われませんか？
さすがに、１ファイルから１００セル転記するのに、
１００回ファイルを開くなんてことは、随分無駄なことだと私だって思いますから、
こんなマクロを組もうと思わないですし、こんな質問はしてないですね。

2 hits

▼

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