{"published":"2012-07-04 00:00:00","blog_title":"shikaku's blog","provider_url":"https://hatena.blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F20120704%2Fp1\" title=\"ExcelVBA DOM\u3067\u3042\u308b\u30ea\u30f3\u30af\u3092\u63a2\u3057\u3066\u30af\u30ea\u30c3\u30af\u3059\u308b\u65b9\u6cd5 - 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>","author_name":"shikaku","type":"rich","provider_name":"Hatena Blog","image_url":null,"version":"1.0","url":"https://blog.systemjp.net/entry/20120704/p1","categories":["Excel"],"width":"100%","height":"190","title":"ExcelVBA DOM\u3067\u3042\u308b\u30ea\u30f3\u30af\u3092\u63a2\u3057\u3066\u30af\u30ea\u30c3\u30af\u3059\u308b\u65b9\u6cd5","author_url":"https://blog.hatena.ne.jp/shikaku/","description":"For Each objITEM In objIE.Document.Links If objITEM.tagName = \"A\" Then strpos = InStr(objITEM.href, \"\u63a2\u3057\u3066\u3044\u308bhref\") If strpos <> 0 Then objITEM.Click Sleep (500) IE_Complete objIE Exit For End If End If Next","blog_url":"https://blog.systemjp.net/"}