Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

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

2015/12/27

FreeFile 関数

Open ステートメントで使用するファイル番号（ 1 ～ 511 の値）は、重複して使用しようとするとエラーが発生してしまいます。FreeFile 関数 を使用すると現在使われていないファイル番号を取得することができます。

【書式】

＜取得＞
result = FreeFile [( rangenumber )]

引数・戻り値

rangenumber ・・・ 0（既定値）を指定すると 1 ～ 255 の範囲のファイル番号が返されます。1 を指定すると 256 ～ 511 の範囲のファイル番号が返されます。
result ・・・ファイル番号を表す整数型（Integer）の値。

FreeFile 関数使用例

サンプルVBAソース

　
Sub Sample_FreeFile()

    Const FileName = "C:\Documents\mydata\myTest"
    Dim FNum As Integer
    Dim i As Integer
    
    For i = 1 To 3
                
        'ファイル番号を取得
        FNum = FreeFile
        
        'ファイルをシーケンシャル出力モード（Output）で開く
        Open FileName & i & ".txt" For Output As #FNum
        
        'ファイルに書き込み
        Print #FNum, "これはテスト " & i & " ファイルです。"
        
        'ファイルを閉じる
        Close #FNum
        
    Next i

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

　

Sub Sample_FreeFile()

Const FileName = "C:\Documents\mydata\myTest"

Dim FNum As Integer

Dim i As Integer

For i = 1 To 3

'ファイル番号を取得

FNum = FreeFile

'ファイルをシーケンシャル出力モード（Output）で開く

Open FileName & i & ".txt" For Output As #FNum

'ファイルに書き込み

Print #FNum, "これはテスト " & i & " ファイルです。"

'ファイルを閉じる

Close #FNum

Next i

End Sub

　

実行結果

サンプルVBAソース実行前

実行後

aaa

- Excel・ファイルの操作 Excel・ファイルの操作, FreeFile 関数, Open ステートメント, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 開いているファイルのサイズ・位置の取得（LOF 関数・Loc 関数）

LOF 関数 Open ステートメントにより開かれたファイルのサイズをバイト単 …

: 「名前を付けて保存」ダイアログボックスを表示（GetSaveAsFilename メソッド）

GetSaveAsFilename メソッド「名前を付けて保存」ダイアログボッ …

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

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

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

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

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

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

: ファイル属性の取得・設定（GetAttr 関数・SetAttr ステートメント）

ファイル属性の取得（GetAttr 関数）ファイルやフォルダ（ディレクトリ）の …

: テキストファイル：出力する 1 行の幅を設定（Width # ステートメント）

Width # ステートメント Open ステートメントをシーケンシャル出力モ …

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

Input # ステートメント Open ステートメントをシーケンシャル入力モ …

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

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

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

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

PREV: テキストファイル（Open ステートメント・Close ステートメント）
NEXT: EOF 関数