Excelスキルアップコレクション
           〜 Something U Want 〜


Google  

WWW を検索
Excelスキルアップコレクション内 を検索
 @     Top  >     Excelプロフェッショナルエンジニアテクニック Topics  >     (16) モジュールにテキストファイルの内容を追加する

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

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

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

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

 以下のようなテキストファイルを"C:\Sample"配下に用意します。
 ここで利用するのはAddFromFileメソッドです。プロシジャの先頭にコードを追加します。
AddFromFile(ファイル名){ファイル名}に記載されている内容をモジュールに追加する追加位置は最初のプロシジャの直前

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

 1行目:  Option Explicit
 2行目:  
 3行目:  Public Sub Sample_AddFromFile_01()
 4行目:  
 5行目:      ' ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
 6行目:      ' 参照設定:
 7行目:      ' 「Microsoft Visual Basic for Application Extensibility」
 8行目:      ' ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
 9行目:      ' このブックのVBProjectをオブジェクト変数に格納する。
10行目:      Dim Obj As VBIDE.VBProject
11行目:      Set Obj = ThisWorkbook.VBProject
12行目:  
13行目:      ' "C:\Sample\Sample.txt"の内容を追加します。
14行目:      Obj.VBComponents("Module2") _
15行目:          .CodeModule.AddFromFile ("C:\Sample\Sample.txt")
16行目:  
17行目:      ' オブジェクトを破棄する。
18行目:      Set Obj = Nothing
19行目:  
20行目:  End Sub
 このサンプルコードを実行すると、Module2にSample.txtの内容が追加されます。
<実行前>
<実行後>
ページの先頭へ