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

関連記事

: テキストファイル：データを書き込む（Put ステートメント）

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

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

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

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

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

: ファイルサイズを取得（FileLen 関数）

ファイルサイズを取得ファイルのサイズ（バイト数）を取得するには、FileLen …

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

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

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

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

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

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

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

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

: フルパスからファイル名、パスを取得する

フルパスからファイル名のみを取得するフルパスからファイル名を取得するには、Di …

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

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

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