PeaceJetのブログ

金融系の社内エンジニアをやりながら、マーケティングやプランナーなども

続・ワークブックが開いているかどうかを確認する。【エクセルマクロ・VB・VBA】

前回は、ワークブックが開いているかを調べる関数を作成しました。

今回は、これらを使って実践的な方法をご紹介します。



①もしも、ワークブックが開いていたら・・・する。

Sub IfWorkbooksAlreadyOpenedThenDo()

'開いているか確認したいブック
Const TargetBookName = "test.xlsx"
Dim BoxValue As Integer

If BookExist(TargetBookName) Then

    MsgBox "すでに開いています。"
    
Else
    
    BoxValue = MsgBox("開いていません。" + Chr(10) + Chr(13) _
        + TargetBookName + "を開きますか?", vbOKCancel)
    
    'MsgBoxの値によって、処理を分岐する。
    Select Case BoxValue
        
        Case 1
            
            '以下には、絶対パスを入力する。
            Workbooks.Open ("C:\Users\XXXXXXXXXX\Desktop\test.xlsx")
        
        Case Else
            
            Exit Sub
        
    End Select
    
End If

End Sub