モジュールにテキストファイルの内容を追加する

CodeModuleのAddFromFileメソッドを用いると、テキストファイルに記載されている内容をモジュールに追加することができます。但し、追加する場所は最初のプロシジャの直前だと決まっています。

① Visual Baisc プロジェクトへのアクセスを許可します。

Visual Baisc プロジェクトへのアクセスを許可する方法

② 「Microsoft Visual Basic for Application Extensibility」を参照設定します。

③ 以下のようなテキストファイルを”C:\Sample”配下に”Sample.txt”を用意します。

④ 下記サンプルコードをModule1に記載して下さい。”C:\Sample\Sample.txt”の内容をModule2に追加する例です

Option Explicit

Public Sub Sample_AddFromFile_01()

    ' ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
    ' 参照設定：
    ' 「Microsoft Visual Basic for Application Extensibility」
    ' ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
    ' このブックのVBProjectをオブジェクト変数に格納する。
    Dim Obj As VBIDE.VBProject
    Set Obj = ThisWorkbook.VBProject

    ' "C:\Sample\Sample.txt"の内容を追加します。
    Obj.VBComponents("Module2") _
        .CodeModule.AddFromFile ("C:\Sample\Sample.txt")

    ' オブジェクトを破棄する。
    Set Obj = Nothing

End Sub

このサンプルコードを実行すると、以下のメッセージボックスが表示されます。