excel vba でファイルを一気に読み込む

Dim fso As FileSystemObject
Set fso = New FileSystemObject ' インスタンス化

Dim f As file
Set f = fso.GetFile("c:\hoge.json") ' ファイルを取得

Dim JsonText As String
JsonText = f.OpenAsTextStream.ReadAll

ネタ元

• http://officetanaka.net/excel/vba/file/file08b.htm