項目

開いたすべてのファイルを閉じる

概要

Resetステートメントで、オープンしている全てのファイルをクローズできます。
エラー処理時に重宝します。

例

Option Compare Database
Option Explicit

'--------------------------------------------------------
' 名称    : testReset
'
' 機能    : 開いたすべてのファイルを閉じる
'--------------------------------------------------------
Sub testReset()

    Dim filePath     As String
    Dim fileNumber   As Long
    Dim i            As Long

On Error GoTo errHandler

    '出力するファイル
    filePath = "c:\test_out.txt"
    'ファイルハンドル
    fileNumber = FreeFile
    'オープン
    Open filePath For Output As #fileNumber
    
    '【強制的にエラーを発生】
    Err.Raise 123456, "ERR TEST", "エラーが発生しました。"
    
    '出力
    Print #fileNumber, "TEST"
    'クローズ
    Close #fileNumber

    Exit Sub
    
errHandler:
    'ファイルのクローズ
    Reset
End Sub