{"author_url":"https://blog.hatena.ne.jp/k-emu/","width":"100%","height":"190","title":"VBA\u3067IE (Internet Explorer)\u3092\u8d77\u52d5\u3059\u308b\u3002","provider_name":"Hatena Blog","version":"1.0","url":"https://www.mypath-as-variant.com/entry/2021/02/27/231004","image_url":null,"published":"2021-02-27 23:10:04","blog_url":"https://www.mypath-as-variant.com/","categories":["Excel VBA"],"blog_title":"\u81ea\u5206\u65b9\u4f4d\u7814\u7a76\u6240","description":"\u6628\u65e5\u306f\u3001IE\u304c\u8d77\u52d5\u3057\u3066\u3044\u308b\u304b\u78ba\u8a8d\u3057\u307e\u3057\u305f\u3002\u304d\u3087\u3046\u306fIE\u3092\u8d77\u52d5\u3055\u305b\u3066\u307f\u307e\u3059\u3002 \u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3059\u308b\u3068IE\u304c\u65b0\u3057\u304f\u958b\u304d\u307e\u3059\u3002 Sub OpenIE() Dim TGTpageURL As String '\u8868\u793a\u3057\u305f\u3044URL TGTpageURL = \"https://hatenablog.com/\" Dim objIE As Object Set objIE = CreateObject(\"InternetExplorer.Application\") objIE.Visible = True objIE.Navigate TGTpageURL '\u6307\u5b9aURL\u3092\u958b\u304f End Sub \u3053\u306e\u307e\u307e\u5b9f\u884c\u3059\u308b\u3068\u2026","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.mypath-as-variant.com%2Fentry%2F2021%2F02%2F27%2F231004\" title=\"VBA\u3067IE (Internet Explorer)\u3092\u8d77\u52d5\u3059\u308b\u3002 - \u81ea\u5206\u65b9\u4f4d\u7814\u7a76\u6240\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","type":"rich","provider_url":"https://hatena.blog","author_name":"k-emu"}