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

投稿者: | 2023年5月19日
excelアイコン

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

ReadLineメソッド

概要

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

構文

TextStreamObject.ReadLine

 

VBAサンプル

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

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

結果

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

VBA_ReadLine結果