HOME>TOP>ワークブック

ブックが開かれているかどうかチェックするには？

キーワード>>ブック名・Workbooks・Count

Point ：ブック間でデータをやり取りする場合などで、対象のブックが開かれていないとエラーになってしまうので開かれているかチェックしたい。

Sub Test()

   Dim i, FindWName

   FindWName = "Book1.xls"
    'Book1.xlsという名前ブックを探します。
    '違うブックを探したい場合は "" の中身をかえてください。

   For i = Workbooks.Count To 1 Step -1
     If Workbooks(i).Name = FindWName Then
      Exit For
     End If
  Next i

   If i <> 0 Then
   'ループが回り切ると0になるため

    MsgBox FindWName & "は開かれています。"
  Else
    MsgBox FindWName & "は開かれていません。"
  End If

End Sub

掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。