Excel2007 VBAでブックのコピーについて

質問

VBAでブックのコピー仕方が分からないので教えて下さい

やりたいことはBook1とBook2のシートデータを統合した物をBook3に書き出したいです

具体的には以下になります

Ｂｏｏｋ１

シート名

パターン1　パターン5　A-1　B-2　B-3　B-4　C-1　C-3　C-5　C-7

Book2

パターン2　パターン3　パターン4　パターン6　D-5　D-6　D-7　D-8　E-9　E-10　Ｆ－１　F-5

これをパターン1を先頭にアルファベット順に整列してBook3に書き出す作業をしたいです

求めている結果

Book3

パターン1 パターン2 パターン3　パターン4　パターン5 A-1　B-2　B-3　B-4　C-1　C-3　C-5　C-7 D-5　D-6　D-7　D-8　E-9　E-10　Ｆ－１　F-5

Book1とBook2のシート名に関しては重複するシート名はないが並び順がばらばらなので

Book3に合体させたときにパターン1を先頭にアルファベットのA-1から順番に整列させたいです

どのようにマクロを記述したらいいのか分からず困っているのでよろしくお願いします

シートの中には画像やオートシェイプなども入っています

回答No.1

nda23 · ベストアンサー

以下のような処理で如何でしょう。

Sub 複製処理()
Dim 作業シート　　As Worksheet
Dim 行　　　　　　　　As Long
Dim 行数　　　　　　As Long
Dim シート数　　　　As Long
Dim ブック名　　　　As String
Dim シート名　　　　As String
Dim ブック1　　　　 As Workbook
Dim ブック2　　　　 As Workbook
Dim ブック3　　　　 As Workbook
Dim 汎用データ　　As Variant
'ブック1を開く
Set ブック1 = Workbooks.Open("C:\～\book1.xls")
'ブック2を開く
Set ブック2 = Workbooks.Open("C:\～\book2.xls")
'作業シートを設定してクリアする
Set 作業シート = ThisWorkbook.Worksheets(1)
作業シート.Cells.ClearContents
'ブック1のシート名を列挙する
For Each 汎用データ In ブック1.Worksheets
　　　　行数 = 行数 + 1
　　　　作業シート.Cells(行数, 1) = 汎用データ.Name
　　　　作業シート.Cells(行数, 2) = ブック1.Name
Next
'ブック2のシート名を列挙する
For Each 汎用データ In ブック2.Worksheets
　　　　行数 = 行数 + 1
　　　　作業シート.Cells(行数, 1) = 汎用データ.Name
　　　　作業シート.Cells(行数, 2) = ブック2.Name
Next
'名前順に並べ替える
作業シート.Columns("A:B").Sort 作業シート.Cells(1, 1)
'削除時の確認をさせないようにする
Application.DisplayAlerts = False
'ブック3を作りシートを1個に減らす
Set ブック3 = Workbooks.Add
Do While ブック3.Worksheets.Count > 1
　　　　ブック3.Worksheets(1).Delete
Loop
'現在のブック3のシート数を記録する
シート数 = 1
'シートをコピーする
For 行 = 1 To 行数
　　　　'ブック名とシート名を取得する
　　　　シート名 = 作業シート.Cells(行, 1)
　　　　ブック名 = 作業シート.Cells(行, 2)
　　　　'コピー対象シートを設定する
　　　　Set 汎用データ = Workbooks(ブック名)
　　　　Set 汎用データ = 汎用データ.Worksheets(シート名)
　　　　汎用データ.Copy , ブック3.Worksheets(シート数)
　　　　If 行 = 1 Then
　　　　　　　　'最初だけ削除できなかったシートを削除する
　　　　　　　　ブック3.Worksheets(1).Delete
　　　　Else
　　　　　　　　'２シート目からシート数を更新する
　　　　　　　　シート数 = シート数 + 1
　　　　End If
Next
'ブック3を保存する
ブック3.SaveAs "C:\～\book3.xls"
'警告を元に戻す
Application.DisplayAlerts = True
End Sub

お礼

ありがとうございます
大変助かりました