【VBA】ファイル操作関数でデータの読み書きやサイズを知る
このページでは、VBAにおけるファイル操作に関する主要な関数について、初心者にも分かりやすい具体例を交えて詳しく解説します。ここで取り上げる関数は、EOF、LOF、FreeFile、Input、Loc、およびSeekです。これらを正しく使いこなすことで、ファイルの読み書き処理がより効率的かつ安全に行えるようになります。
EOF関数について
EOF(filenumber) は、指定したファイル番号に対応するファイルが末尾に達しているかどうかをチェックする関数です。ファイルからデータを読み込む際、予期せぬエラーを防ぐために、ループ内でこの関数を使ってファイルの終端に到達したかどうかを確認します。
例えば、テキストファイルの全行を読み込む場合は、以下のように使用します。
Dim fileNum As Integer
Dim dataLine As String
fileNum = FreeFile() ' 利用可能なファイル番号を取得
Open "sample.txt" For Input As #fileNum
Do While Not EOF(fileNum) ' ファイル末尾までループ
Line Input #fileNum, dataLine
Debug.Print dataLine ' 読み込んだ行を表示
Loop
Close #fileNum
このコードでは、EOF(fileNum) が False を返す間、つまりファイル末尾に達していない間はループが継続され、各行が読み込まれます。
LOF関数について
LOF(filenumber) は、指定されたファイル番号のファイルのサイズ（バイト数）を取得するための関数です。ファイルサイズを知ることで、ファイル全体を一度に読み込むべきか、分割して読み込むべきかなどの判断材料にできます。
例えば、ファイルサイズを表示する場合は次のように記述します。
Dim fileNum As Integer Dim fileSize As Long fileNum = FreeFile() Open "sample.txt" For Binary Access Read As #fileNum fileSize = LOF(fileNum) Debug.Print "ファイルサイズは " & fileSize & " バイトです。" Close #fileNum
ここでは、バイナリモードでファイルを開き、LOF(fileNum) を使用してファイルのサイズを取得しています。
FreeFile関数について
FreeFile 関数は、現在使用されていないファイル番号を返します。VBAでは、ファイルを開く際にファイル番号を指定する必要があり、他のファイル番号と重複しないようにするためにこの関数が役立ちます。
例えば、複数のファイルを同時に操作する場合、以下のように FreeFile を使ってそれぞれのファイル番号を取得します。
Dim fileNum1 As Integer Dim fileNum2 As Integer fileNum1 = FreeFile() Open "data1.txt" For Input As #fileNum1 fileNum2 = FreeFile() Open "data2.txt" For Output As #fileNum2 ' ここでそれぞれのファイルに対して読み書き操作を実施 Close #fileNum1 Close #fileNum2
このように FreeFile を利用することで、ファイル番号の管理が容易になり、誤って同じ番号を使ってしまうリスクを回避できます。
Input関数について
Input(number, [#]filenumber) は、指定された数の文字（またはデータ）をファイルから読み込むための関数です。特に、定められた長さのデータを一度に読み込みたい場合に便利です。
例えば、ファイルから50文字だけ読み込むコードは以下の通りです。
Dim fileNum As Integer Dim textData As String Dim numChars As Integer fileNum = FreeFile() Open "sample.txt" For Input As #fileNum numChars = 50 ' 読み込む文字数を指定 textData = Input(numChars, #fileNum) Debug.Print "読み込んだデータ: " & textData Close #fileNum
この例では、ファイル先頭から50文字を読み込み、その内容を出力しています。ファイルの内容が50文字未満の場合は、存在する分だけ読み込まれます。
Loc関数について
Loc(filenumber) 関数は、指定したファイル番号における現在の読み書き位置（バイト単位）を返します。ファイル操作中に現在どの位置まで処理が進んでいるかを確認する際に用いられます。
例えば、ファイルに対して一部読み書きを行った後、その位置を確認するコードは以下のようになります。
Dim fileNum As Integer Dim currentPos As Long fileNum = FreeFile() Open "sample.txt" For Binary Access Read Write As #fileNum ' 何らかの読み込みまたは書き込み操作を実施 currentPos = Loc(fileNum) Debug.Print "現在のファイル位置は " & currentPos & " バイト目です。" Close #fileNum
このコードは、ファイル操作後に現在のバイト位置を取得し、デバッグウィンドウに表示します。これにより、どの位置まで処理が進んだのかを確認できます。
Seek関数について
Seek(filenumber) 関数は、ファイルの読み書き位置を取得または設定するために使用されます。Loc 関数と似た機能を持ちますが、Seek は特に位置の移動（シーク）を行う際に用いられ、ファイル内の任意の位置にアクセスできるようにします。
まず、現在のファイル位置を取得する例を示します。
Dim fileNum As Integer Dim currentPos As Long fileNum = FreeFile() Open "sample.txt" For Binary Access Read As #fileNum currentPos = Seek(fileNum) Debug.Print "現在の読み込み位置は " & currentPos & " バイトです。" Close #fileNum
次に、Seek を使用してファイルポインタを特定の位置に移動させる例です。
Dim fileNum As Integer fileNum = FreeFile() Open "sample.txt" For Binary Access Read Write As #fileNum ' ファイルの先頭に移動（1バイト目） Seek fileNum, 1 ' 次に、ファイルの50バイト目に移動 Seek fileNum, 50 ' 以降の処理では、50バイト目から読み書きが行われる Close #fileNum
このように、Seek 関数を使うと、ファイル内の任意の位置にアクセスして、読み書き操作を行うことができます。位置はバイト単位で指定するため、バイナリファイルや固定長データの処理において非常に有用です。
以上、VBAでのファイル操作における基本的な関数の解説でした。これらの関数を理解し活用することで、ファイルの読み書き処理がより柔軟に、また安全に実装できるようになります。各関数の特徴や使用例を参考にして、実際のプログラミングに役立ててください。
