VBAで、ファイルが閉じられているかを知る方法

Question

いつもお世話になっております。

処理の流れ

VBAで、ファイルを複数開いて処理をするとします。

実行ファイル（VBAが入っている）
A.xlsファイル
B.xlsファイル
C.xlsファイル

そして、事情がありA.xlsファイルだけ処理の途中でファイルを閉じてメモリを開放しています。

しかし、例えば処理の途中でトラブルがあったりした場合はエラー処理に飛ぶようになっています。

現在の状況

もし処理の途中でトラブルがありエラー処理に飛んだ場合でも、
処理の最後にすべてのファイルを閉じてメモリを開放するコードを入れています。

しかし、例えばA.xlsファイルを閉じた後にトラブルがあってエラー処理に飛んだ場合
A.xlsファイルを閉じてメモリを開放するコードでエラーが発生してしまいます。

具体的なエラー発生箇所

　　　　'A.xlsファイルのクローズ（A.xls＝SendFile）
       '訳あって処理の途中で閉じる処理を入れている
       SendFile.Close SaveChanges:=True




'エラー発生時の処理

　　'A.xlsファイルのクローズ
    If SendFile.Name <> "" Then
        SendFile.Close SaveChanges:=True
    End If
        
    'エラーメッセージ
    MsgBox "Capability Building (" & strError & ") の処理でエラーが発生しました。" & _
        vbCrLf & "エラー番号: " & Err.Number & _
        vbCrLf & "エラー内容: " & Err.Description

End Sub

上記の部分では、処理の途中でA.xlsファイルを閉じているので
その後にエラーが発生した場合、エラー処理の時に

　　'A.xlsファイルのクローズ
    If SendFile.Name <> "" Then
        SendFile.Close SaveChanges:=True
    End If

この部分でエラーが発生します。
すでにA.xls（＝SendFile.Name）が閉じられているのが原因のようです。

困っていること

この場合、

①ファイルが開いてるかどうかを判断
②もし開いていれば閉じる

というふうに判断すれば良いと思うのですが、それらしいコードが見つかりません。

ファイルが開いているかを判断するコードってあるのでしょうか？

よろしくお願いいたします。

Answer 1

こんなんでいけないでしょうか。

exists = False
For Each wk In Workbooks
	If wk.Name = ブック名 Then
		exists = True
		Exit For
	End If
Next

Answer 2

SendFile.Close
Set SendFile = Nothing

としておいて、エラー処理ではNothing以外の場合にCloseすればいいです。

Answer 3

closeの前に、On Error Resume Nextを書いて、エラーを無視するのはどうでしょうか？

Comments

[退会済みユーザー]

回答ありがとうございます！
それだと、他にエラーが発生した場合も無視されてしまいませんか？

[otn]

On Error Resume Next
SendFile.Close SaveChanges:=True
On Error Goto 0
です。
「すでにクローズ」以外のエラーが出ていないかは、エラーコードで判断できます。