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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: FileDialogFilters コレクション・FileDialogFilter オブジェクト

FileDialogFilters コレクション FileDialog オブジェ …

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

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

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

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

: 開いているファイルの読み取り位置または書き込み位置を設定（Seek ステートメント）

Seek ステートメント Open ステートメントで開いているファイルで、次に …

: Excelでテキストファイルを開く（OpenText メソッド）

Excelでテキストファイルを開く OpenText メソッドで、テキストファイ …

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

Line Input # ステートメント Open ステートメントをシーケンシャ …

: 組み込みダイアログボックスの引数一覧

組み込みダイアログボックスの引数一覧 Excel の組み込みダイアログボックスを …

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

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

: 「ファイル」ダイアログボックスを表示・設定（FileDialog オブジェクト）

FileDialog オブジェクト FileDialog オブジェクトのメソッ …

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

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

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