{"url":"https://blog.systemjp.net/entry/2014/12/16/094054","blog_url":"https://blog.systemjp.net/","width":"100%","height":"190","title":"ExcelVBA\u3067\u5b58\u5728\u3059\u308bIE\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u63a2\u3057\u3066\u6839\u3053\u305d\u304eQuit\u3059\u308b","author_name":"shikaku","image_url":null,"categories":["ExcelVBA","vba"],"published":"2014-12-16 09:40:54","provider_name":"Hatena Blog","version":"1.0","author_url":"https://blog.hatena.ne.jp/shikaku/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2014%2F12%2F16%2F094054\" title=\"ExcelVBA\u3067\u5b58\u5728\u3059\u308bIE\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u63a2\u3057\u3066\u6839\u3053\u305d\u304eQuit\u3059\u308b - shikaku&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","description":"Public Sub ie_quit() Dim objShell Dim objWindow Set objShell = CreateObject(\"Shell.Application\") For Each objWindow In objShell.Windows If TypeName(objWindow.Document) = \"HTMLDocument\" Then objWindow.Quit Sleep 100 End If Next Set objShell = Nothing End Sub\u30cd\u30bf\u5143 http://www.happy2-island.com/vbs/cafe02\u2026","type":"rich","provider_url":"https://hatena.blog","blog_title":"shikaku's blog"}