|
こんばんわ。
VBAはほとんどいじったことがなく、こちらで教えて頂けると嬉しいです。
では、やりたいコトですが
workbook_A(転記元)からworkbook_B(転記先)へ転記するツールをつくっています。
こちらは、各シートごとに転記の実行ができるようにするため、
各シートごとでマクロをわけています。同一モジュール内でシートごとにプロシージャを分けて記述しています。
現在、wb_Aでマクロを実行しています。なぜかというと、wb_AはActiveworkbookで定義しているからです。このブックをアクティブにしないと実行できません。。。
実は、こちらの転記元ファイルは、ファイル名が固定じゃなんです。
転記先は固定ですが、マクロがくまれてない状態で取り扱いたいファイルなので、記述できません。
なので、別ブックにマクロを記述し、上記の作業を実行というかたちをとりました。
そこでやりたいことというのは、
wb_Aの幾つかのシートの中の1シートが、複数になるファイルがあります。
シートのフォーマットは同じで中身のデータが異なるという感じです。
マクロは、転記元のX_sheet、Y_sheet、Z_sheetから、
転記先のX_sheet、Y_sheet、Z_sheetに転記。と組んであります。
なので、例えば転記元のY_sheetが複数になっている場合は、転記先のY_sheetも同じ数にコピーして作成させておき、転記実行を行う必要があるのです。
で、問題なのは、増えているシートのシート名がバラバラになっているということです。(固定じゃないのです。)
以上のように、転記元の幾つかのシートのうちひとつが、複数になっているとき、
転記先の対象シートも同じ数だけ増やし、転記の実行をする
という流れにしなくてはなりません。
(しかし、増えたシートのシート名は、そのつど違う)
このようなツールをつくるためには、どんな方法があるのか
教えていただけないでしょうか?
宜しくお願い致します!!
|
|