
TextStreamオブジェクトのReadLineメソッドについてです。
ReadLineメソッド
概要
ファイルから1行(改行文字の前まで)読み取り、文字列を返します。
構文
TextStreamObject.ReadLine
VBAサンプル
指定したファイルからExcelに1行ずつ書き込む
まずFileSystemObjectをセットし、FileSystemObjectのOpenTextFileメソッドで指定したファイルを開きTextStreamオブジェクトをセットして、TextStreamオブジェクトのAtEndOfStreamプロパティでファイル ポインターがファイルの末尾かを判断しながら(末尾でない場合は➡False)、TextStreamオブジェクトのReadLineメソッドで1行読み取り(改行文字の手前)、Excelのアクティブシートに1行ずつ書き込みを繰り返し、AtEndOfStreamプロパティが(末尾になると➡True)になるとループから抜けて処理が終わります。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | 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行ずつ書き込めます。