PeaceJet

@PeaceJets 2018年、証券会社から転職して人材会社のシステムエンジニアになりました。マーケティングやデータ分析・UI/UX改善などもやっています! #Docker #Ruby #Rails #lambda #GoogleAppsScript #VBA #GitHub http://github.com/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