【VBA】ファイルから1行ずつ読み取る(ReadLine)

TextStreamオブジェクトのReadLineメソッドについてです。

1 ReadLineメソッド
- 1.1 概要
- 1.2 構文
2 VBAサンプル
- 2.1 指定したファイルからExcelに1行ずつ書き込む

ReadLineメソッド

概要

ファイルから1行(改行文字の前まで)読み取り、文字列を返します。

構文

TextStreamObject.ReadLine

VBAサンプル

指定したファイルからExcelに1行ずつ書き込む

まずFileSystemObjectをセットし、FileSystemObjectのOpenTextFileメソッドで指定したファイルを開きTextStreamオブジェクトをセットして、TextStreamオブジェクトのAtEndOfStreamプロパティでファイルポインターがファイルの末尾かを判断しながら(末尾でない場合は➡False)、TextStreamオブジェクトのReadLineメソッドで1行読み取り（改行文字の手前）、Excelのアクティブシートに1行ずつ書き込みを繰り返し、AtEndOfStreamプロパティが(末尾になると➡True)になるとループから抜けて処理が終わります。

Sub test1()

'変数

Dim fso As Object, ts As Object

Dim r As Long: r = 1

'FileSystemObjectをセット

Set fso = CreateObject("Scripting.FileSystemObject")

'TextStreamオブジェクトをセット

Set ts = fso.OpenTextFile("D:\sample\test.txt", ForReading)

'TextStreamオブジェクトのAtEndOfStreamプロパティでファイルの末尾か判断

Do Until ts.AtEndOfStream

'ExcelのアクティブシートにReadLineメソッドで1行読み取り、1行書き込む

Cells(r, 1) = ts.ReadLine

'行番号を次の行にする

r = r + 1

Loop

'ファイルを閉じる

ts.Close

End Sub

【結果】

Excelのアクティブシートに1行ずつ書き込めます。