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

関連記事

: ファイルのタイムスタンプを取得（FileDateTime 関数）

ファイルのタイムスタンプを取得ファイルのタイムスタンプを取得するには、File …

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

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

: テキストファイル：データを読み込む（Input 関数・InputB 関数）

Input 関数・InputB 関数 Open ステートメントをシーケンシャル入 …

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

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

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

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

: ディレクトリまたはフォルダの作成（MkDir ステートメント）

ディレクトリまたはフォルダの作成新しいディレクトリまたはフォルダを作成するには …

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

Get ステートメント Open ステートメントをランダムアクセスモード（Ra …

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

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

: ファイル属性の取得・設定（GetAttr 関数・SetAttr ステートメント）

ファイル属性の取得（GetAttr 関数）ファイルやフォルダ（ディレクトリ）の …

: テキストファイル（Open ステートメント・Close ステートメント）

新規ブックを開かずにテキストファイルを開く OpenText ステートメントを …

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