はじめに
任意のブック名をエクセルで開いているかを確認するVBAコードをご紹介します。
コード
下記のようになっています。
On Errorステートメントを使用してワークブックを変数にセットすることで、例外が発生するかどうかを確認しています。
'ワークブックを開いているか確認する
Public Function IsWorkbookOpened(ByVal WbName As String) As Boolean
On Error Resume Next
Dim wb As Workbook
Set wb = Workbooks(WbName)
Dim Result As Boolean
If (Err.Number <> 0) Then
Result = False
Else
Result = True
End If
On Error GoTo 0
IsWorkbookOpened = Result
End Function
終わりに
いかがでしたでしょうか。
On Errorステートメントを使った確認は使い勝手が良いので、様々な場面で活用できます。
参考にしてください！
コメント