エラー処理で悩んでおります。教えていただけますでしょうか？

エラーが発生した場合、例外処理でエラー処理（サブルーチン）に飛ばしているのですが、今開いているファイルを閉じたい（保存なし）のですが。。。エラーなのでどこで発生するかわからない。ファイル名は可変。

また、ファイルはExcel、テキスト、CSVがあります。

こんな感じで作っていて、途中で？？？になってしまいました。

各ファイルオープン時にファイルパスを配列に設定

　→　エラー発生時、配列からファイルパスを取得

　→　ファイル存在確認（処理の中で削除する場合もあるので。。設定してます）

　→　Openしているかどうか確認（ここがわかりません）

　→　Openしていたら閉じる（ここもわかりません）