EXCEL VBA ワークシートのコピーについて

質問

seaclearsky8です。

一つのブックに何枚ものワークシートを追加して保存するVBAについて
ご教授、よろしくお願いします。

コピー元　

MASTER Book MASTER Workseets

コピー先

Copy Book copy Worksheets

コピー元にはワークシートがMASTERワークシートの一枚しかありません。

その一枚のワークシートに値をVBAで入れていき処理し

コピー先のコピーBOOKにワークシートをコピーしていきたいです。

しかし、MASTERBOOKの処理が何通りかあり、

コピー元の一枚のワークシートに
処理別にデータを写し

コピー先BOOKに

　　　　　　　　　ワークシート名
ワークシート１　処理１ワークシート　
ワークシート２　処理２ワークシート
ワークシート３　処理３コピー元ワークシート３

という具合にワークシートを複数コピーしたいのですが

処理ごとにデータを代入し、コピー処理はできるのですが。

コピー先BOOK

ワークシート３　処理３ワークシート

だけしかコピーされてないBOOKが作成されます。
上書きされているのだと思われます。

対処法が調べましたが見つけられていません。

すいませんが対処法及び参考VBA等ご教授宜しくお願いいたします。

回答No.1

excelist · ベストアンサー

今どういうコードを書いているのか不明なので、とりあえず
「１つのシートを別のブックに複数回コピーする」ための参考ソースを書きます。
コピー元のブックに下記ソースを貼り付けて実行してもらえば
新規ブックにコピー元のシートが３枚コピーされると思います。
（新規ブックを追加しているのでシート数は３枚より多くなります）

Sub copySheet()
Dim masterWb As Workbook
Dim masterSh As Worksheet
Dim copyWb As Workbook

Set masterWb = ThisWorkbook
Set masterSh = masterWb.Sheets(1)
Set copyWb = Workbooks.Add

'ここからが実際のコピー処理です。
'単純に３回コピーメソッドを呼び出して３回コピーしています。
masterSh.Copy before:=copyWb.Sheets(1)
masterSh.Copy before:=copyWb.Sheets(1)
masterSh.Copy before:=copyWb.Sheets(1)

End Sub

補足

回答ありがとうございました。

無事解決することができました。

コピーの文法を教えて頂きありがとうございました。