ファイルが開いているか確認する関数

◆関数名：fncXlsOpen ブックが開いているかチェックします。 ◆引数： strBookName（String型）･･･チェックするブック名 ◆戻り値： ブックが開いていればTrue、開いていなければFalse コード Public Function fncXlsOpen(strBookName As String) As Boolean Dim objWB As Workbook fncXlsOpen = False For Each objWB In Workbooks If objWB.Name = strBookName Then fncXlsOpen = True End If Next objWB End Function Sub ブックが開いているか確認する() Dim strFileName As String strFileName = "Book1.xls" '◆