【VBA】テキストファイルの中身をすべて読み込む

Sub test()
    Dim buf As String
    buf = LoadTextFile("D:\dev\ExcelVBA\てすと.txt")
    Debug.Print buf
End Sub

'---------------------------------------------------------------------------------------------------
'【処 理 名】テキストファイル読み込み
'【処理概要】テキストファイルをすべて読み込む
'【引    数】[I]ByVal filePath As String    ファイルフルパス
'【返 却 値】テキストファイル取得結果
'---------------------------------------------------------------------------------------------------
Private Function LoadTextFile(ByVal filePath As String) As String
    Dim buf As String
    '参照設定 > Microsoft Scripting Runtime
    Dim oFso As FileSystemObject
    
    Set oFso = New FileSystemObject
    With oFso.GetFile(filePath).OpenAsTextStream
        buf = .ReadAll
        .Close
    End With
    Set oFso = Nothing
    
    LoadTextFile = buf
End Function

2018年2月10日 【VBA】テキストファイルを読み込んでExcelシートに書き込む