HOME > 即効テクニック > Excel VBA > ファイル操作関連のテクニック > ブックが完全に閉じられたかどうか確認する

即効テクニック

ファイル操作関連のテクニック

ブックが完全に閉じられたかどうか確認する

(Excel 97)
ブックが完全に閉じられてから次の処理へ進みたいといった場合は、Nameプロパティを使って該当のブックが完全に閉じられたかどうかを確認してから次の処理へ進む方法があります。
サンプルマクロでは、開かれているすべてのブックのNameプロパティを確認してブック「test.xls」が閉じられたかどうかを判断しています。

Sub Sample()

    Dim MyBook As Workbook
    Dim Myflg As Boolean

    Workbooks("test.xls").Close

    Do
        Myflg = False

        For Each MyBook In Application.Workbooks
            If MyBook.Name = "test.xls" Then
                Myflg = True
            End If
        Next

    Loop While Myflg = True

    MsgBox "test.xlsは完全に閉じました。次の処理を行います。"

End Sub