Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

EOF 関数

2015/12/29

EOF 関数

Open ステートメント をランダムアクセスモード（Random）またはシーケンシャル入力モード（Input）で開いたファイルで、読み込み位置が末尾に到達したとき、True を返します。

【書式】

result = EOF ( filenumber )

引数・戻り値

filenumber ・・・ Open ステートメント で、割り当てられたファイル番号を指定します。
result ・・・ファイル内の読み込み位置が末尾に到達するまでの間は、False、末尾に到達すると True。

Open ステートメント、ランダムアクセスモード（Random）、シーケンシャル入力モード（Input） 等に関しての詳細は、テキストファイル（Open ステートメント・Close ステートメント）を参照してください。

EOF 関数使用例

サンプルVBAソース

　
Sub Sample_EOF()

    Dim FileName As String
    Dim FileNumber As Integer
    Dim buf(2)
    Dim str As String
    
    FileName = "C:\Documents\user01.txt"
    FileNumber = FreeFile
    
    Open FileName For Input As #FileNumber
    
        Do Until EOF(FileNumber)
        
            Input #FileNumber, buf(0), buf(1), buf(2)
            str = str & buf(0) & vbTab & buf(1) & vbTab & buf(2) & vbCrLf
        
        Loop
    
    Close #FileNumber
        
    MsgBox str

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

　

Sub Sample_EOF()

Dim FileName As String

Dim FileNumber As Integer

Dim buf(2)

Dim str As String

FileName = "C:\Documents\user01.txt"

FileNumber = FreeFile

Open FileName For Input As #FileNumber

Do Until EOF(FileNumber)

Input #FileNumber, buf(0), buf(1), buf(2)

str = str & buf(0) & vbTab & buf(1) & vbTab & buf(2) & vbCrLf

Loop

Close #FileNumber

MsgBox str

End Sub

　

実行結果

- Excel・ファイルの操作 EOF 関数, Excel・ファイルの操作, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: FileDialog オブジェクトを取得する（FileDialog プロパティ）

FileDialog プロパティ FileDialog オブジェクトを取得しま …

: 「ファイルを開く」ダイアログボックス（FindFile メソッド）

FindFile メソッド「ファイルを開く」ダイアログボックスを表示します。G …

: Excel の組み込みダイアログボックス（Dialog, Dialogs）

Excel の組み込みダイアログボックスを表示 Dialog オブジェクトを使 …

: Excel を終了する（Quit メソッド）

Excel を終了する（Quit メソッド） Quit メソッドを実行すると、E …

: ファイルの検索・フォルダ内のファイル一覧を取得（Dir 関数）

Dir 関数 Dir 関数で、ファイルの存在を確認したり、指定したフォルダ内のフ …

: 開いているファイルの現在の読み取り位置または書き込み位置を取得（Seek 関数）

Seek 関数 Open ステートメントで開いたファイル内の現在の読み取り位置 …

: フォルダ名・ファイル名を変更（Name ステートメント）

フォルダ名およびファイル名を変更 Name ステートメントで、ファイル、ディレ …

: Open ステートメントで使用できるファイル番号を取得（FreeFile 関数）

FreeFile 関数 Open ステートメントで使用するファイル番号（ 1 ～ …

: ファイルを削除（Kill ステートメント）

ファイルを削除するファイルを削除するには、Kill ステートメントを使用しま …

: テキストファイル：データを読み込む（Input # ステートメント）

Input # ステートメント Open ステートメントをシーケンシャル入力モ …

PREV: Open ステートメントで使用できるファイル番号を取得（FreeFile 関数）
NEXT: 開いているファイルのサイズ・位置の取得（LOF 関数・Loc 関数）