【VBA】ファイルの全部を読み取る(ReadAll)

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

ReadAllメソッド

ファイルの全部を読み取って文字列を返します。

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

Sub test()

'変数

Dim fso As Object, ts As Object

'FileSystemObjectをセット

Set fso = CreateObject("Scripting.FileSystemObject")

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

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

'TextStreamオブジェクトのReadAllメソッドで読み取る

Debug.Print ts.ReadAll

ts.Close

End Sub

注意
ReadAllメソッドで大きなファイルを使用する場合はメモリの容量を大量に使用するので、ファイルを1行ずつ読み取るなどしてファイルを入力する必要があります。