VBAを使って自身のブックのモジュールを他のブックにコピーする

Question

VBAを使って自身のブックのモジュールを他のブックにコピーしようと思います。

コピーは下記コードで上手くできるのですが、
自身のブック・・Returnbook
他のブック・・Targetbook

    Dim VBP, Code As String
    With Returnbook.VBProject.VBComponents("Module1").CodeModule
        Code = .Lines(1, .CountOfLines)
    End With
    With Targetbook.VBProject.VBComponents.Add(1)
        .CodeModule.AddFromString Code
    End With

教えてほしいことは、自身のブックのモジュールに記載した宣言セクション
Option Explicit
他のブックに2回に記載されてしまいます。
Option Explicit
Option Explicit

他に宣言セクションがなければ、下記コードでよいのですが、
必要な文まで消えてしまいます。

    Dim VBP, Code As String
    With Returnbook.VBProject.VBComponents("Module1").CodeModule
        Code = .Lines(.CountOfDeclarationLines + 1, _
                                      .CountOfLines - .CountOfDeclarationLines + 1)
    End With
    With Targetbook.VBProject.VBComponents.Add(1)
        .CodeModule.AddFromString Code
    End With

宣言セクションを残した状態で
Option Explicit　が2回記載されることを防げないでしょうか？
教えて下さい。

Answer 1

案1

[VBIDE.CodeModule].DeleteLinesメソッドを使って
コピー先のモジュールから先に宣言セクションを削除し、その後AddFromString で追記する。

案2

[VBIDE.VBComponent].Exportで外部ファイルに書き出し、
[VBIDE.VBComponents].Importで読み込む。

Answer 2

別解として、エクスポートして、そのファイルをインポートする方法もあるかと。

ただし、ファイルの作成･削除、既存モジュールの削除等は気をつける必要があります。

Answer 3

他のブックにコードをコピーする前に
"Option Explicit"が記載されていれば、""に置換しました。
すると上手くいきました。

    With Returnbook.VBProject.VBComponents("Module1").CodeModule
        Code = .Lines(1, .CountOfLines)
    End With
    With Targetbook.VBProject.VBComponents.Add(1).CodeModule
        For i = 1 To .CountOfLines
            If .Lines(i, 1) = "Option Explicit" Then
                .ReplaceLine i, ""
            End If
        Next i
        .AddFromString Code
    End With

Answer 4

設定で、変数の宣言を強制するのチェックを外してから実行してみてはどうでしょう。

Comments

[cd987456]

回答ありがとうございます。
参考にします。