テキストファイルに書き出す／読み取る

'参照: Microsoft Scripting Runtime
Sub テキストの書き込み()

    Dim oFS As New FileSystemObject
    Dim oTS As TextStream
    Dim pathTxt As String
    Dim sLine As String
    
    pathTxt = ActiveWorkbook.Path & "\log.txt"
    
    ' 書き込み用(上書き)で開く/作成する
    Set oTS = oFS.CreateTextFile(Filename:=pathTxt, Overwrite:=True)
    '' 書き込み (追記) 用に開く
    ' If oFS.FileExists(pathTxt) = False Then Exit Sub
    ' Set oTS = oFS.OpenTextFile(Filename:=pathTxt, IOMode:=ForAppending)

    oTS.WriteLine "あいうえお"
    oTS.WriteLine "かきくけこ"
    ' oTS.Write "あいうえお" & vbCrLf & "かきくけこ " & vbCrLf
    
    oTS.Close
End Sub

'参照: Microsoft Scripting Runtime
Sub テキストの読み込み()

    Dim oFS As New FileSystemObject
    Dim oTS As TextStream
    Dim pathTxt As String
    Dim txt As String
    
    pathTxt = ActiveWorkbook.Path & "\log.txt"
    
    ' 読み取り専用で開く
    If oFS.FileExists(pathTxt) = False Then Exit Sub
    Set oTS = oFS.OpenTextFile(Filename:=pathTxt, IOMode:=ForReading)
    
    ' 1行ずつ読み込み
    Do
        txt = oTS.ReadLine
        MsgBox txt
        If oTS.AtEndOfStream Then Exit Do
    Loop
    '' まとめて読み込み
    ' txt = oTS.ReadAll
    ' MsgBox txt
    
    oTS.Close
End Sub