開かれているブック名を取得する

今回は開かれているブック名の確認方法をメモしておきます。

ここでは”Book1.xlsx”、”Book2.xlsx”が開いている状態です。
“Book1.xlsx”が開いているかを確認するプログラムになっています。

共通部品としてチェック関数を作成してあります。
調べるファイル名をパラメーターとして渡せばOKです。

実行プログラム

Sub Sample6_25_1()

    Dim strFile  As String
    Dim intRet   As Integer
    
    strFile = "Book1.xlsx"
    
    intRet = Func_Check(strFile)
    If intRet = 1 Then
        MsgBox strFile & " は開いています。"
    End If
    
End Sub

' パラメータ：対象ファイル名
' 戻り値    ：0(開かれていない) ／ 1(開いている)
Function Func_Check(strFile As String) As Integer
 
    Dim objWB    As Workbook
    
    Func_Check = 0
 
    For Each objWB In Workbooks
        If objWB.Name = strFile Then
            Func_Check = 1
            Exit For
        End If
    Next objWB
 
End Function

Sub Sample6_25_1()

Dim strFile As String

Dim intRet As Integer

strFile = "Book1.xlsx"

intRet = Func_Check(strFile)

If intRet = 1 Then

MsgBox strFile & " は開いています。"

End If

End Sub

' パラメータ：対象ファイル名

' 戻り値：0(開かれていない) ／ 1(開いている)

Function Func_Check(strFile As String) As Integer

Dim objWB As Workbook

Func_Check = 0

For Each objWB In Workbooks

If objWB.Name = strFile Then

Func_Check = 1

Exit For

End If

Next objWB

End Function

実行前

実行後