EXCEL VBAメモ - テキストファイルアクセス
ファイルハンドル?は、#1などと番号を指定しても良いが、FreeFileで空いている番号を取得することもできる。
Sub accessTextFile() Dim fNo As Long Dim fName As String Dim s As String fNo = FreeFile fName = ThisWorkbook.Path & "\sample.txt" ' 1行ずつ書き込み Open fName For Output As #fNo ' 追加の場合はAppend Print #fNo, "1行目" Print #fNo, "2行目" Close #fNo ' 1行ずつ読み込み Open fName For Input As #fNo Do Until EOF(fNo) ' #は不要 Line Input #fNo, s ' 1行読み取り MsgBox s Loop Close #fNo End Sub