Excel/VBAで指定のExcelファイルが開いているか確認するマクロ

Excel/VBAでファイルが開いているかチェックするためのマクロです。

Function isBookOpen(bookName) As Boolean
  Dim wb As Workbook

  isBookOpen = False
  For Each wb In Workbooks
    If wb.Name = bookName Then
      isBookOpen = True
      Exit For
    End If
  Next
End Function
 

 

使い方はチェックしたいファイル名をisBookOpen関数に渡すと、ファイルが開いていればTrue、開いていなければFalseを返します。

Sub 使い方()
  If isBookOpen("Book1.xlsx") = True Then
    MsgBox ("開いています")
  Else
    MsgBox ("開いていません")
  End If
End Sub
 

 

[ad#ad-1]

 - Excel, VBA