概要

FreeFile関数は、VBAでファイルを開く際に、次に使用可能なファイル番号を取得するための関数です。VBAでファイル操作を行う際には、ファイル番号を指定してファイルを開きますが、FreeFile関数を使うことで、安全に使用可能なファイル番号を自動的に取得できます。これにより、ファイル番号の重複を防ぎ、エラーの発生を抑えることができます。

構文

FreeFile([rangenumber])

パラメータ

• rangenumber（省略可能）

  使用するファイル番号の範囲を指定します。通常は省略されますが、以下の値を指定可能です。

  • 0 または省略：0から255の範囲で次の使用可能なファイル番号を返します。

  • 1：256から511の範囲で次の使用可能なファイル番号を返します。

戻り値

• 次に使用可能なファイル番号を整数値で返します。通常の範囲では0から255の番号が返されます。

使用例

基本的な使用例 - ファイルを開く際にFreeFileを使用する

以下の例では、FreeFile関数を使用して、次に使用可能なファイル番号を取得し、テキストファイルを開いて書き込みを行います。

Sub WriteToFile()
    Dim filePath As String
    Dim fileNumber As Integer

    ' 書き込むファイルのパスを指定
    filePath = "C:\Example\sample.txt"

    ' 次に使用可能なファイル番号を取得
    fileNumber = FreeFile

    ' ファイルを開いて書き込み
    Open filePath For Output As #fileNumber
    Print #fileNumber, "これはテストの書き込みです。"

    ' ファイルを閉じる
    Close #fileNumber

    MsgBox "ファイルに書き込みが完了しました。"
End Sub

この例では、FreeFileを使用して、次に使用可能なファイル番号を取得し、指定したファイルにテキストを書き込んでいます。

複数のファイルを同時に開く例

複数のファイルを同時に開く場合も、FreeFile関数を使うことでファイル番号の衝突を防ぐことができます。

Sub OpenMultipleFiles()
    Dim filePath1 As String
    Dim filePath2 As String
    Dim fileNumber1 As Integer
    Dim fileNumber2 As Integer

    ' ファイルパスを指定
    filePath1 = "C:\Example\sample1.txt"
    filePath2 = "C:\Example\sample2.txt"

    ' 次に使用可能なファイル番号をそれぞれ取得
    fileNumber1 = FreeFile
    Open filePath1 For Output As #fileNumber1
    Print #fileNumber1, "サンプル1の書き込みです。"

    fileNumber2 = FreeFile
    Open filePath2 For Output As #fileNumber2
    Print #fileNumber2, "サンプル2の書き込みです。"

    ' ファイルを閉じる
    Close #fileNumber1
    Close #fileNumber2

    MsgBox "複数のファイルへの書き込みが完了しました。"
End Sub

この例では、FreeFile関数を使って2つの異なるファイルを同時に開き、それぞれに書き込みを行っています。

エラーハンドリング付きの例

ファイルを開いた後に、適切にファイルを閉じることが重要です。次の例では、エラーハンドリングを加えて、安全にファイル操作を行います。

Sub SafeFileWrite()
    Dim filePath As String
    Dim fileNumber As Integer

    filePath = "C:\Example\sample.txt"

    On Error GoTo ErrorHandler

    ' 使用可能なファイル番号を取得
    fileNumber = FreeFile

    ' ファイルを開いて書き込み
    Open filePath For Output As #fileNumber
    Print #fileNumber, "安全な書き込み処理です。"

    ' ファイルを閉じる
    Close #fileNumber
    MsgBox "書き込みが完了しました。"

    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました。ファイルが開けないか、他の問題が発生しています。"
    If fileNumber > 0 Then Close #fileNumber  ' 必ずファイルを閉じる
End Sub

この例では、エラーハンドリングを追加して、ファイル操作中にエラーが発生した場合でも、ファイルが正しく閉じられるようにしています。

まとめ

FreeFile関数は、VBAで安全にファイル番号を取得し、ファイル操作を行うための重要な関数です。複数のファイルを同時に扱う際や、ファイル番号の重複によるエラーを防ぐために必須です。使用後は必ずファイルを閉じることを忘れずにし、必要に応じてエラーハンドリングを行うことで、より安全なプログラムを構築できます。