VBA テキストファイルをパソコン内部で開く方法

• PathName 【ﾊﾟｽﾈｰﾑ】（必須）
  開きたいテキストファイルの名前を含むパスをダブルクォーテーションで囲んで指定します。ファイル名だけを指定した場合はカレントフォルダーのファイルが対象となります。指定したファイルが存在しない場合、引数Mode【ﾓｰﾄﾞ】にInput【ｲﾝﾌﾟｯﾄ】以外のモードが指定されていると指定されたファイルが新規作成されます。
• mode【ﾓｰﾄﾞ】（必須）
  ファイルを開くときのモードを以下のキーワードで指定します。

  キーワード	モード
  Input	シーケンシャル入力モード
  Output	シーケンシャル出力モード
  Append	追加モード
  Binary	バイナリモード
  Random	ランダムアクセスモード（既定値）

  ※シーケンシャルモードとは、規則的に継続している形式という意味です。
  ※バイナリモードとは、画像などのデータ形式を表します。

• access【ｱｸｾｽ】（省略可）
  開くファイルに対する処理を示す、次のキーワードのうちいずれかを指定します。

  キーワード	内容
  Read	リード　読み込み
  Write	ライト　書き込み
  Read Write	リードライト読み書き込み

• lock【ﾛｯｸ】（省略可）
  開かれたファイルに対する他のプロセスからの操作の制限を表す次のキーワードのうちいずれかを指定します。

  キーワード	内容
  Shared	シェアード　共用
  Lock Read	ロックリード読み込みロック
  Lock Write	ロックライト書き込みロック
  Lock Read Write	ロックリード読み書き込みロック

• filenumber【ﾌｧｲﾙﾅﾝﾊﾞｰ】（必須）
  開いたファイルに番号を割り当てます。1～511の値を指定します。
• reclength【ﾚｸﾚﾝｸﾞｽ】（省略可）
  32,767 バイト以下の数値。ランダム アクセス用に開かれたファイルでは、この値はレコード長です。シーケンシャル ファイルでは、この値はバッファリングされる文字数です。

• Filenumber【ﾌｧｲﾙﾅﾝﾊﾞｰ】（必須）
  Open【ｵｰﾌﾟﾝ】ステートメントで割り当てたファイル番号を指定します。
• Varlist【ﾊﾞｰﾘｽﾄ】（必須）
  テキストファイルの内容を格納する変数を指定します。複数指定する場合は、カンマで区切って指定し、テキストファイル内のデータ項目の個数と順番を一致させます。

• Filenumber【ﾌｧｲﾙﾅﾝﾊﾞｰ】（省略可）
  Openステートメントで割り当てたファイル番号を指定します。複数指定する場合は、カンマで区切って指定します。省略するとすべてのファイルを閉じます。

Sub テキストファイルの読み込み()
Dim ファイルNO As Integer
Dim データ(3) As String
Dim i As Integer
Dim j As Integer
Worksheets(1).Activate
ファイルNO = FreeFile
Open ThisWorkbook.Path & "¥売上データ.txt" For Input As #ファイルNO
i = 1
Do Until EOF(ファイルNO)
Input #ファイルNO, データ(0), データ(1), データ(2), データ(3)
For j = 0 To 3
Cells(i, j + 1).Value = データ(j)
Next j
i = i + 1
Loop
Close #ファイルNO
End Sub

2行目【Dim ファイルNO As Integer】
Open【ｵｰﾌﾟﾝ】ステートメントで使用するファイルのナンバーを格納する変数「ファイルNO」整数型(Integer)で宣言します。

3行目【Dim データ(3) As String】
Input #【ｲﾝﾌﾟｯﾄﾊｯｼｭ】ステートメントで読み込むテキストファイルのデータを格納する配列変数「データ()」を文字列型(String)で宣言します。

4行目【Dim i As Integer】
Do Loop【ﾄﾞｩﾙﾙｰﾌﾟ】ステートメントで利用されるセルの行番号を表すカウンタ―変数「i」を整数型(Integer)で宣言します。

5行目【Worksheets(1).Activate】
Worksheets【ﾜｰｸｼｰﾂ】プロパティで引数にインデックス番号1を指定して1番目のワークシートを参照しActivate【ｱｸﾃｨﾍﾞｲﾄ】メソッドを使用してそのシートをアクティブにします。

6行目【ファイルNO = FreeFile】
FreeFile【ﾌﾘｰﾌｧｲﾙ】関数を使用して、Open【ｵｰﾌﾟﾝ】ステートメントで、使用できるファイル番号を取得し、変数「ファイルNO」に代入します。

7行目【Open ThisWorkbook.Path & “¥売上データ.txt” For Input As #ファイルNO】
Open【ｵｰﾌﾟﾝ】ステートメントを使用して、このブックと同じフォルダーにある「売上データ.txt」ファイルをファイルNOに格納されているNOでパソコン内部で開きます。

8行目【i = 1】
カウンタ―変数「i」に1を代入します。

9行目【Do Until EOF(ファイルNO)】
Do Until【ﾄﾞｩｱﾝﾁﾙ】ステートメントを使用して、データの末尾を返す。EOF【ｲｰｵｰｴﾌ】関数がTrueを返すまで（データが無くなるまで）処理を繰り返します。

10行目【Input #ファイルNO, データ(0), データ(1), データ(2), データ(3)】
変数「ファイルNO」に格納した番号のファイル内のデータを配列変数データにInput #【ｲﾝﾌﾟｯﾄﾊｯｼｭ】ステートメントで読み込んで書き込みます

11行目【For j = 0 To 3】
For Next【ﾌｫｰﾈｸｽﾄ】文で繰り返し処理の始まりです。カウンター変数「j」に0~3になるまで以下の処理を繰り返します。

12行目【Cells(i, j + 1).Value = データ(j)】
i行目、i+1列目のセルに配列変数データのj番目要素に格納した値を代入します。

16行目【Close #ファイルNO】
ファイルを閉じて、変数ファイルNOに格納されている番号のファイルを解放します。