VBA関数のFreeFile関数

FreeFile関数は、VBA関数の中でファイル・フォルダに関する関数に分類される関数です。

目次

• FreeFile関数とは
• FreeFile関数のサンプルコード
  • 実行結果
  • 解説

FreeFile関数とは

FreeFile関数は、使用可能なファイル番号を整数型 (Integer) の値で返すファイル入出力関数です。

使用可能なファイル番号を取得するために FreeFile 関数を使用します。既に使われているファイル番号を重複して使うのを防ぐことができます。

FreeFile関数のサンプルコード

次の例は、FreeFile 関数を使って、次に使用可能なファイル番号を返します。この例では、ループ内で 5 つのファイルをシーケンシャル出力モード (Output) で開いています。各ファイルには、サンプル データが書き込まれているものと仮定します。

Sub Sample

Dim MyIndex, FileNumber
For MyIndex = 1 To 5                        ' ループを 5 回繰り返します。
    FileNumber = FreeFile                    ' 未使用のファイル番号を取得します。
    Open "TEST" & MyIndex For Output As #FileNumber    ' ファイル名を作成します。
    Write #FileNumber, "これはサンプルです。"            ' 文字列を出力します。
    Close #FileNumber                        ' ファイルを閉じます。
Next MyIndex

End Sub

実行結果

解説

ファイル・フォルダに関する関数一覧