非IT企業に勤める中年サラリーマンのIT日記

非IT企業でしかもITとは全く関係ない部署にいる中年エンジニア。唯一の趣味がプログラミングという”自称”プログラマー。

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