VBAのモジュールについて教えて下さい。 ブック1のコードを全てブック2のコードへ上書きをしたいです

VBAのモジュールについて教えて下さい。

ブック1のコードを全てブック2のコードへ上書きをしたいです。
シートモジュール、ユーザーフォーム、標準モジュール全てです。

なぜかと言うと、ブック1はマスタとしてマクロの作り込みのみ行います。
ブック2というのは実際に業務で使うブックで同様のブックがいくつもあります。
マクロの修正があった時に、全てのブックを１つ１つ修正するのは大変なので、ブック1というマスタのコードを一括で他のブックへ上書きしたいのです。

ただ、ブック1とブック2はシートの数も名前も違います。
標準モジュールやユーザーフォームはある程度できたのですが、シートモジュールがクラスモジュールとしてインポートされる為、シートモジュールへ入れる事が出来ません。

どなたか御教授下さい。

No.3 回答者： Qchan1962 回答日時： 2019/09/09 23:54

自ブックのコードを読むところから説明しないといけないかな。

＃２は、全部でないけど
自ブックのDocument モジュールの読込は、下記を参考にしてください。
配列に入れるなどして読み込んだ方が書き込み時、処理速度としてよいかと思います。
また、＃２などでモジュールに書き込む際は、VBAの弱点、一つずつの書き込みを行うので
ブックの数、モジュール数、コードの量でスタックする恐れがありますので
メイン処理をサブに出すなどして、少しでもメモリ確保（解放）した方が良いと思います。

Sub MyCode_Substitution()
Dim Target As Workbook, i As Long, strCo
Dim oVBC As VBComponent
Set Target = ThisWorkbook
　　　For Each oVBC In Target.VBProject.VBComponents
　　　　If oVBC.Type = 100 Then
　　　　　 With Target.VBProject.VBComponents(oVBC.Name).CodeModule
　　　　　　　For i = 1 To .CountOfLines
　　　　　　　　strCo = .Lines(i, 1)

　　　　　　　　　Debug.Print strCo　’試してください。

　　　　　　　Next i
　　　　　End With
　　　　End If
　　　Next oVBC
End Sub

読込の順番は、ThisWorkbook　sheet1,,,,,です。
入力されているすべて、（空行を含む）が一行ずつ出力されます。＃２と組み合わせ
他ブックのDocumentモジュールを書き換えて下さい。

ズバリ、実行するだけのコードが良いのであれば、リクエストを

しかし、＞シートの数も名前も違います。

どこに書き込むか、指定しないで良いのでしょうか？
全ブックの共通モジュールは、ThisWorkbookだけですが、、、
後からこうしたい話は、無しですよ。

No.2 回答者： Qchan1962 回答日時： 2019/09/09 16:51

＞ブック1というマスタのコードを一括で他のブックへ上書きしたいのです

読み飛ばしていました。
モジュールごとだと、
Workbooks("Book1.xlsm").VBProject.VBComponents("Module1").Export Book_path＆Module.bas（対象モジュール）
Workbooks("Book2.xlsm").VBProject.VBComponents.Import Book_path＆Module.bas
のような感じでしょうか？
しかしながら、Exportには、Typeが、1、2、3しかないようで、、まあ、Document モジュールは、
Book本体のモジュールなので当たり前かもしれません。（シートモジュールを追加する場合は、シートを作成するので）

従って、Document モジュールは一行ずつ書き替える　などをする必要があります。
参考コード（一部）　別サイトに掲示したものを掲載、変数は読んでください。

ReDim Pch_Arr(0)
Pch_Arr(0) = PATH_
n = n + 1
Set fso = New FileSystemObject
On Error GoTo ErrHndl
listSubFolders fso.GetFolder(PATH_), n
If Sgn(Pch_Arr) <> 0 Then
　For j = 0 To UBound(Pch_Arr)
　　　File_Name = Dir(Pch_Arr(j) & "*" & extension)
　　　On Error Resume Next
　　　Do While File_Name <> ""
　　　　Set Target = Workbooks.Open(Pch_Arr(j) & File_Name)
　　　　If Target.VBProject.Protection <> 0 Then GoTo skp
　　　　For Each oVBC In Target.VBProject.VBComponents
　　　　　If oVBC.Type = 100 Then
　　　　　　　With Target.VBProject.VBComponents(oVBC.Name).CodeModule
　　　　　　　　For i = 1 To .CountOfLines
　　　　　　　　　strCo = .Lines(i, 1)
　　　　　　　　　　
　　　　　　　　　　書き込みコードを書く場所

　　　　　　　　End If
　　　　　　　Next i
　　　　　End With
　　　　End If
　　　Next oVBC
skp:
　　　Target.Save
　　　Target.Close
　　　File_Name = Dir()
　　Loop
Next j
End If

No.1 回答者： Qchan1962 回答日時： 2019/09/09 10:58

>標準モジュールやユーザーフォームはある程度できた.

のであれば、VBComponents.Nameを指定して
VBComponentsのTypeを指定するのはどうでしょう。
Document モジュール　.Type = 100
クラスモジュール　.Type = 2

＞インポートされる為
ブック2側で実行するのではないですよね。

書き込みは、モジュールレベル？コードレベル？
取敢えず、検証しておりませんが、、、
もう少し、具体的なものを頂けると。。