Open ステートメントで使用できるファイル番号を取得(FreeFile 関数)
FreeFile 関数
Open ステートメントで使用するファイル番号( 1 ~ 511 の値)は、重複して使用しようとするとエラーが発生してしまいます。FreeFile 関数 を使用すると現在使われていないファイル番号を取得することができます。
【書式】
<取得>
result = FreeFile [( rangenumber )]
引数・戻り値
- rangenumber ・・・ 0(既定値)を指定すると 1 ~ 255 の範囲のファイル番号が返されます。1 を指定すると 256 ~ 511 の範囲のファイル番号が返されます。
- result ・・・ ファイル番号を表す整数型(Integer)の値。
- rangenumber ・・・ 0(既定値)を指定すると 1 ~ 255 の範囲のファイル番号が返されます。1 を指定すると 256 ~ 511 の範囲のファイル番号が返されます。
- result ・・・ ファイル番号を表す整数型(Integer)の値。
FreeFile 関数 使用例
サンプルVBAソース
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
関連記事
-
ファイルを削除(Kill ステートメント)
ファイルを削除する ファイルを削除するには、Kill ステートメント を使用しま …
-
開いているファイルのサイズ・位置の取得(LOF 関数・Loc 関数)
LOF 関数 Open ステートメント により開かれたファイルのサイズをバイト単 …
-
テキストファイル:データを読み込む(Line Input # ステートメント)
Line Input # ステートメント Open ステートメントをシーケンシャ …
-
FileDialogFilters コレクション・FileDialogFilter オブジェクト
FileDialogFilters コレクション FileDialog オブジェ …
-
テキストファイル:データを書き込む(Put ステートメント)
Put ステートメント Open ステートメント をランダムアクセスモード(Ra …
-
「ファイルを開く」ダイアログボックスを表示(GetOpenFilename メソッド)
GetOpenFilename メソッド ファイル名を取得するための、「ファイル …
-
ファイルの検索・フォルダ内のファイル一覧を取得(Dir 関数)
Dir 関数 Dir 関数で、ファイルの存在を確認したり、指定したフォルダ内のフ …
-
テキストファイル:データを書き込む(Write # ステートメント)
Write # ステートメント Open ステートメント をシーケンシャル出力モ …
-
ディレクトリまたはフォルダの削除(RmDir ステートメント)
ディレクトリまたはフォルダの削除 ディレクトリまたはフォルダを削除するには、Rm …
-
Excelでテキストファイルを開く(OpenText メソッド)
Excelでテキストファイルを開く OpenText メソッドで、テキストファイ …
- PREV
- テキストファイル(Open ステートメント・Close ステートメント)
- NEXT
- EOF 関数