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

関連記事

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

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

: ディレクトリまたはフォルダの削除（RmDir ステートメント）

ディレクトリまたはフォルダの削除ディレクトリまたはフォルダを削除するには、Rm …

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

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

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

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

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

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

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

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

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

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

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

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

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

GetOpenFilename メソッドファイル名を取得するための、「ファイル …

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

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

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