質問: CreateObject("Shell.Application") For Each cc In bb.Windows cc.Quit Next
回答: >メモ帳をダブルクリックしないと >とじません。 この文の意味は不明ですが、エクスプローラとインターネットエクスプローラを閉じる場合は、削除すると順番が変わるので、複数を閉じる場合は対処が必要になります。 Dim bb Dim i Set bb = CreateObject("Shell.Application") For i = bb.Windows.Count - 1 To 0 Step -1 bb.Windows(i).Quit Next または Dim bb Set bb = CreateObject("Shell.Application") Do While bb.Windows.Count <> 0 bb.Windows(0).Quit Loop を試してみてください。