ファイル操作Ⅱ（Line Input #）

最終更新日：2018-02-07

第117回.ファイル操作Ⅱ（Line Input #）

VBAでファイル（CSV等）を扱う時は、
最初に、ファイルを開き、
次に、読込書込みを行い、
最後に、ファイルを閉じます。

ファイルを読み込む時に、Line Input # ステートメントを使います。

Line Input # ステートメント

シーケンシャル入力モード (Input) で開いたファイルから行全体を読み込み、
文字列型 (String) の変数に代入するファイル入出力ステートメントです。

Line Input #filenumber, varname

filenumber	必ず指定します。任意のファイル番号を指定します。
varname	必ず指定します。バリアント型 (Variant) の変数または文字列型 (String) の変数の名前を指定します。

Line Input # ステートメントは、
ファイルからキャリッジリターン (Chr(13)) または改行コード (Chr(13)) + Chr(10)) の直前までのすべての文字を読み込みます。

キャリッジリターン (Chr(13)) は、VbCr

改行コード (Chr(13)) + Chr(10)) は、VbCrLf

キャリッジリターンと改行コードは、変数に読み込まれる文字列に追加されるのではなく、読み飛ばされます。

EOF 関数

開いたファイルの現在位置がファイルの末尾に達している場合、
ブール型 (Boolean) の値の真 (True) を含む整数型 (Integer) の値を返します。

EOF(filenumber)

引数 filenumber には、任意の有効なファイル番号を表す整数型 (Integer) の数値を指定します。この引数は必ず指定します。

EOF関数は、ファイルから読み込みを行っているとき、
読み込み位置がファイルの末尾に達していないかどうかを確かめるために使用します。

使用例．

Sub sample()
　　Dim i As Long
　　Dim FileNumber
　　Dim InputData
　　FileNumber = FreeFile
　　Open "C:\TEST.txt" For Input As #FileNumber
　　i = 1
　　Do While Not EOF(FileNumber)
　　　　Line Input #FileNumber, InputData
　　　　Cells(i, 1) = InputData
　　　　i = i + 1
　　Loop
　　Close #FileNumber
End Sub

上記では、テキストファイル"C:\TEST.txt"から、１行ずつデータを読み込み、

ワークシートのA列に出力しています。

以下も参考にしてください。

CSVの読み込み方法