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
関連記事
-
-
「ファイルを開く」ダイアログボックスを表示(GetOpenFilename メソッド)
GetOpenFilename メソッド ファイル名を取得するための、「ファイル …
-
-
テキストファイル:データを読み込む(Input 関数・InputB 関数)
Input 関数・InputB 関数 Open ステートメントをシーケンシャル入 …
-
-
開いているファイルのサイズ・位置の取得(LOF 関数・Loc 関数)
LOF 関数 Open ステートメント により開かれたファイルのサイズをバイト単 …
-
-
ファイルのタイムスタンプを取得(FileDateTime 関数)
ファイルのタイムスタンプを取得 ファイルのタイムスタンプを取得するには、File …
-
-
FileDialogFilters コレクション・FileDialogFilter オブジェクト
FileDialogFilters コレクション FileDialog オブジェ …
-
-
開いているファイルの読み取り位置または書き込み位置を設定(Seek ステートメント)
Seek ステートメント Open ステートメント で開いているファイルで、次に …
-
-
ファイルを削除(Kill ステートメント)
ファイルを削除する ファイルを削除するには、Kill ステートメント を使用しま …
-
-
ディレクトリまたはフォルダの作成(MkDir ステートメント)
ディレクトリまたはフォルダの作成 新しいディレクトリまたはフォルダを作成するには …
-
-
テキストファイル:データを読み込む(Get ステートメント)
Get ステートメント Open ステートメント をランダムアクセスモード(Ra …
-
-
テキストファイル(Open ステートメント・Close ステートメント)
新規ブックを開かずにテキストファイルを開く OpenText ステートメント を …
- PREV
- テキストファイル(Open ステートメント・Close ステートメント)
- NEXT
- EOF 関数