即効テクニック |
ブックが完全に閉じられてから次の処理へ進みたいといった場合は、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