【VBA】ファイルから文字数指定で読み取る(Read)

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

Readメソッド

ファイルから指定した文字数を読み取れます。

TextStreamObject.Read(characters)

引　数	必須 / 省略可	詳　細
文字数 (characters)	必須	ファイルから読み取る文字数を指定。

まずFileSystemObjectをセットします。FileSystemObjectのOpenTextFileメソッドでTextStreamオブジェクトをセットして、Readメソッドで文字数を指定して読み取ります。

Sub test()

'変数

Dim fso As Object, ts As Object

'FileSystemObjectをセット

Set fso = CreateObject("Scripting.FileSystemObject")

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

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

'TextStreamオブジェクトのReadメソッドで5文字読み取る

Debug.Print ts.Read(5)

End Sub

【結果】

5文字分の文字を読み取れます。