機能と数式 | VBA | セミナー | オンラインソフト | お問い合わせ | その他
Top > Excel > VBA > VBAのエラー

ファイルにこれ以上データがありません



Sub Sample1()
    Dim buf As String
    Open "C:\Sample.txt" For Input As #1
        Do Until EOF(1)
            Line Input #1, buf
        Loop
        Line Input #1, buf
    Close #1
End Sub



テキストファイルを開いて、すべてのデータを1行ずつ取得するには、

Do Until EOF(1)
    Line Input #1, buf
Loop

とします。
Line Inut#ステートメントは、ファイルから1行分のデータを読み取ります。Line Inut#ステートメントを実行すると、ファイル内の次の読み込み位置が、読み込んだ次の行に移ります。すべてのデータを読み込むと、次の読み込み位置はファイルの末尾になり、それ以上データを読み込むことはできません。読み込み位置が末尾にあるかどうかはEOF関数で判定します。EOF関数は、次の読み込み位置が末尾にくるとTrueを返します。



このエントリーをはてなブックマークに追加