Excel 指定したブックが開いているかどうかの判断

（対象）Excel　VBA
（確認）Excel2003


今回は指定したブックが開いているか否かのファンクションです。

たとえば外部ファイルを開いてそこにある値を持って来たい時、
すでに開いているとエラーになったりしませんか？
（ブログ主は時々なります←開きっぱなしにすることがある）

そんな時、とりあえず開いているかいないかの確認をする
ファンクションです。

これ以外の方法も（作ったこと忘れたので）色々やっていますが、
とりあえず一番単純なものを。

これの結果次第でエラーとして処理するか開く動作を無視して
そのまま次の動作にいくかもあなた次第。

---

'==============================================================

' ファンクション

'　：　指定したブックが開いているかどうかの判断(True/False)

'==============================================================

Function CheckOpenBook(CheckBookName As String) As Boolean

  '■ワークブック変数を宣言

  Dim WB_A As Workbook

  

  '■初期化

  CheckOpenBook = False

  

  '■開いているブックを全て探し、指定したファイルの有無を確認

  For Each WB_A In Workbooks

    If WB_A.Name = CheckBookName Then

      CheckOpenBook = True

      Exit For

    End If

  Next

End Function

――――――――――――――――――――――――――――――――

（使い方例）
Dim Flg as Boolean
Flg = CheckOpenBook("aaa\bbb.xls")
If Flg Then
  Msgbox "開いてるよ"
Else
  Msgbox "開いてないよ"
End If


→指定したファイルが開いていたらTrue、開いてなかったら
　Falseを返すので、その値によって処理を分ける

---

ちょいちょい役立つものだと思います。

ちなみに、探すと似たようなもの書いたサイトさん
いっぱい出てきます。

真面目に作ってる方多いので、大変参考になります。