ループの中で既にファイルを開いていれば閉じる

Question

'変数宣言省略
ary = array("apple","apple","banana","orange")
For i=0 To 3
Workbook(ary[i-1]).close
Set newBook = Workbooks.Open("C:\Users\xxx\"ary[0])
Next i

それぞれ配列の順番にファイルを開くと同時にその前のファイルをを閉じたいと考えております。
最初のループにおいて、appleファイルを開いていないため、インデックス有効範囲エラーになってしまうため
もし、該当するファイルを開いていれば閉じるのように処理することは可能でしょうか？

実際には配列から値を取得しているわけではなくセルから値を取得しており
[i-1]のセルは存在しているため、その点はご了承ください。

Answer 1

ループの最後でクローズしない理由はなんでしょうか？
ループ内で、オープン→クローズの順で処理するのが妥当だと思いますが。

appleファイルを開いていないため、インデックス有効範囲エラーになってしまうため

有効範囲エラーはappleファイルを開いていないためではなく、ary配列の範囲外の要素(-1)を指しているからです。

それからきちんとVBAの構文でコードを載せてください。

Comments

[maguzo]

有効範囲については、仰る通りです。失礼しました。
また、vbaコードになれておらず、もうしわけございません。
一度vbaで書いて動かしてから転記するようにいたします。

Answer 2

Bookが確実に存在しており、読み取り専用で無い過程ですが

Function IsBookOpenedtest(a_sFilePath) As Boolean
    On Error Resume Next
    
    '判定
    Open a_sFilePath For Append As #1
    Close #1
    
    If Err.Number > 0 Then
        '開かれている場合
        (対象Book).Close
    Else
        '開かれていない場合
        IsBookOpened = False
    End If
End Function

でどうでしょうか

下記LINK先を参考としました。
ブックが開かれているかチェックする

Comments

[maguzo]

ご教示いただいたコードを利用して無事解決することができました。
ありがとうございます。