{"id":13587,"date":"2021-05-21T22:00:51","date_gmt":"2021-05-21T13:00:51","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=13587"},"modified":"2021-05-23T22:40:00","modified_gmt":"2021-05-23T13:40:00","slug":"ie%e3%82%b5%e3%83%9d%e3%83%bc%e3%83%88%e7%b5%82%e4%ba%86%e3%81%a7vba%e3%83%9e%e3%82%af%e3%83%ad%e3%81%af%e3%81%a9%e3%81%86%e3%81%aa%e3%82%8b%e3%81%ae%ef%bc%9f","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=13587","title":{"rendered":"IE\u30b5\u30dd\u30fc\u30c8\u7d42\u4e86\u3067VBA\u30de\u30af\u30ed\u306f\u3069\u3046\u306a\u308b\u306e\uff1f"},"content":{"rendered":"<p><span style=\"color: #ff0000; font-weight: bold;\">\u203b\u4e0b\u8a18\u60c5\u5831\u306f2021\u5e745\u6708\u6642\u70b9\u306e\u60c5\u5831\u3067\u3001\u4eca\u5f8c\u72b6\u6cc1\u304c\u5909\u308f\u3063\u3066\u3044\u304f\u53ef\u80fd\u6027\u304c\u3042\u308a\u307e\u3059\u3002<\/span><\/p>\n<p>\u5148\u65e5\u3001Microsoft\u304b\u30892022\u5e746\u6708\u306bInternet Explorer 11\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30b5\u30dd\u30fc\u30c8\u304c\u7d42\u4e86\u3055\u308c\u308b\u3068\u306e\u767a\u8868\u304c\u3042\u308a\u307e\u3057\u305f\u3002<\/p>\n<div class=\"linkcard\"><div class=\"lkc-external-wrap\"><a class=\"lkc-link no_icon\" href=\"https:\/\/forest.watch.impress.co.jp\/docs\/news\/1325704.html\" target=\"_blank\" rel=\"external nofollow noopener\"><div class=\"lkc-card\"><div class=\"lkc-info\"><div class=\"lkc-favicon\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/www.google.com\/s2\/favicons?domain=forest.watch.impress.co.jp\" alt=\"\" width=\"16\" height=\"16\" \/><\/div><div class=\"lkc-domain\">\u7a93\u306e\u675c<\/div><\/div><div class=\"lkc-content\"><figure class=\"lkc-thumbnail\"><img decoding=\"async\" class=\"lkc-thumbnail-img\" src=\"\/\/www.ka-net.org\/blog\/wp-content\/uploads\/pz-linkcard\/cache\/c13bf484e05d5553709b2a9a9c46d9d62013b5f7eb5b6dcfaac5b3aacf456ed1.jpeg\" width=\"100px\" height=\"108px\" alt=\"\" \/><\/figure><div class=\"lkc-title\">Microsoft\u3001\u300cInternet Explorer 11\u300d\u306e\u30b5\u30dd\u30fc\u30c8\u7d42\u4e86\u3092\u767a\u8868\u3001\uff5e\u7336\u4e88\u671f\u9593\u306f\u7d041\u5e74\u30012...<\/div><div class=\"lkc-url\" title=\"https:\/\/forest.watch.impress.co.jp\/docs\/news\/1325704.html\">https:\/\/forest.watch.impress.co.jp\/docs\/news\/1325704.html<\/div><div class=\"lkc-excerpt\">\u3000\u7c73Microsoft\u306f5\u670819\u65e5\uff08\u73fe\u5730\u6642\u9593\u3001\u4ee5\u4e0b\u540c\uff09\u3001\u300cInternet Explorer 11\u300d\uff08IE 11\uff09\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30b5\u30dd\u30fc\u30c8\u30922022\u5e746\u670815\u65e5\u306b\u7d42\u4e86\u3059\u308b\u3068\u767a\u8868\u3057\u305f\u3002Windows 10\u306b\u304a\u3051\u308b\u5f8c\u7d99\u30d6\u30e9\u30a6\u30b6\u30fc\u306f\u300cChromium\u300d\u30d9\u30fc\u30b9\u306e\u65b0\u3057\u3044\u300cMicrosoft Edge\u300d\u3068\u306a\u308b\u3053\u3068\u3082\u4f75\u305b\u3066\u30a2\u30ca\u30a6\u30f3\u30b9\u3055\u308c\u3066\u3044\u308b\u3002<\/div><\/div><div class=\"clear\"><\/div><\/div><\/a><\/div><\/div>\n<p>SNS\u3067\u3082\u5927\u304d\u306a\u8a71\u984c\u3068\u306a\u3063\u3066\u3044\u307e\u3057\u305f\u304c\u3001VB\/VBA\u754c\u9688\u3067\u8457\u540d\u306a\u9b54\u754c\u306e\u4eee\u9762\u5f01\u58eb( <a href=\"https:\/\/twitter.com\/Benshi_Orator\" title=\"\u5f01\u58eb\u3055\u3093 (@Benshi_Orator)\" target=\"_blank\" rel=\"noopener\">@Benshi_Orator<\/a> )\u3055\u3093\u304c\u4e0b\u8a18\u30c4\u30a4\u30fc\u30c8\u3092\u3055\u308c\u3066\u3044\u307e\u3057\u305f\u3002<\/p>\n<blockquote class=\"twitter-tweet\">\n<p lang=\"ja\" dir=\"ltr\">WebBrowser \u306f\u751f\u304d\u6b8b\u308b\u3089\u3057\u3044\u3051\u308c\u3069\u2026\u4ee5\u4e0b\u306e\u6280\u8853\u306f\u3069\u3046\u306a\u308b\u306e\u304b\u306a\u3002<br \/>\u2488 .mht (Web \u30a2\u30fc\u30ab\u30a4\u30d6)<br \/>\u2489 .hta (HTA \u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3)<br \/>\u248a CreateObject(&quot;htmlfile&quot;)<br \/>\u248b CreateObject(&quot;InternetExplorer.Application&quot;)<br \/>\u248c IE \u30e2\u30fc\u30c9\u5229\u7528\u6642\u306e ShellWindows \u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u5217\u6319\u6642\u306e\u632f\u308b\u821e\u3044 <a href=\"https:\/\/t.co\/3Hq3sV30vP\">https:\/\/t.co\/3Hq3sV30vP<\/a><\/p>\n<p>&mdash; \u5f01\u58eb (@Benshi_Orator) <a href=\"https:\/\/twitter.com\/Benshi_Orator\/status\/1395542435464314881?ref_src=twsrc%5Etfw\">May 21, 2021<\/a><\/p><\/blockquote>\n<p> <script async src=\"https:\/\/platform.twitter.com\/widgets.js\" charset=\"utf-8\"><\/script> <\/p>\n<p>\u305d\u308c\u306b\u5bfe\u3059\u308b\u30e6\u30b9\u30ad\u30a3( <a href=\"https:\/\/twitter.com\/ms_yuhara\" title=\"\u30e6\u30b9\u30ad\u30a3 (Yusuke Hara)\u3055\u3093 (@ms_yuhara)\" target=\"_blank\" rel=\"noopener\">@ms_yuhara<\/a> )\u3055\u3093 \u203b\u30de\u30a4\u30af\u30ed\u30bd\u30d5\u30c8\u306e\u30d6\u30e9\u30a6\u30b6\u30fc (Microsoft Edge \/ IE) \u306e\u4e2d\u306e\u4eba \u306e\u3054\u56de\u7b54\u304c\u4e0b\u8a18\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<blockquote class=\"twitter-tweet\">\n<p lang=\"ja\" dir=\"ltr\">IE11 \u30c7\u30b9\u30af\u30c8\u30c3\u30d7 \u30a2\u30d7\u30ea\u306e\u30b5\u30dd\u30fc\u30c8\u7d42\u4e86\u5f8c<\/p>\n<p>1. MHT \u306f IE \u30e2\u30fc\u30c9\u5185\u3067\u8868\u793a\u3067\u304d\u308b<br \/>2. HTA \u306f\u5f15\u304d\u7d9a\u304d\u30b5\u30dd\u30fc\u30c8\u3059\u308b<br \/>3. IHTMLDocument \u306b\u3088\u308b\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u64cd\u4f5c\u306f\u5f15\u304d\u7d9a\u304d\u30b5\u30dd\u30fc\u30c8\u3059\u308b<br \/>4. \u30aa\u30fc\u30c8\u30e1\u30fc\u30b7\u30e7\u30f3\u306b\u3088\u308b IE11 \u8d77\u52d5\u306f\u3067\u304d\u305a\u3001Edge \u306b\u30ea\u30c0\u30a4\u30ec\u30af\u30c8\u3059\u308b<br \/>5. ShellWindows \u3067 IE \u30e2\u30fc\u30c9\u306f\u5217\u6319\u3067\u304d\u306a\u3044 <a href=\"https:\/\/t.co\/a4qE5IugUm\">https:\/\/t.co\/a4qE5IugUm<\/a><\/p>\n<p>&mdash; \u30e6\u30b9\u30ad\u30a3 (Yusuke Hara) (@ms_yuhara) <a href=\"https:\/\/twitter.com\/ms_yuhara\/status\/1395558478836420614?ref_src=twsrc%5Etfw\">May 21, 2021<\/a><\/p><\/blockquote>\n<p> <script async src=\"https:\/\/platform.twitter.com\/widgets.js\" charset=\"utf-8\"><\/script> <\/p>\n<p>\u3082\u3061\u308d\u3093\u30012021\u5e745\u6708\u6642\u70b9\u3067\u306e\u56de\u7b54\u306b\u306a\u308a\u307e\u3059\u306e\u3067\u3001\u5b9f\u969b\u306b\u306f\u5909\u66f4\u3055\u308c\u308b\u53ef\u80fd\u6027\u3082\u3042\u308b\u3068\u601d\u3044\u307e\u3059\u304c\u3001\u975e\u5e38\u306b\u53c2\u8003\u306b\u306a\u308a\u307e\u3057\u305f\u3002<\/p>\n<p>\u3053\u306eIE11\u306e\u30b5\u30dd\u30fc\u30c8\u7d42\u4e86\u306e\u77e5\u3089\u305b\u3092\u53d7\u3051\u3066\u3001<a href=\"https:\/\/social.msdn.microsoft.com\/Forums\/ja-JP\/home?forum=vbajp\" title=\"Msdn \u30d5\u30a9\u30fc\u30e9\u30e0 - Visual Basic for Application(VBA)\" target=\"_blank\" rel=\"noopener\">MSDN\u30d5\u30a9\u30fc\u30e9\u30e0<\/a>\u3067\u3082\u3055\u3063\u305d\u304f\u30b9\u30ec\u30c3\u30c9\u304c\u7acb\u3063\u3066\u3044\u307e\u3057\u305f\u3002<\/p>\n<div class=\"linkcard\"><div class=\"lkc-external-wrap\"><a class=\"lkc-link no_icon\" href=\"https:\/\/social.msdn.microsoft.com\/Forums\/ja-JP\/vbajp\/thread\/c0765a67-b8ba-40dc-ac52-aac7be9f1d6a\" target=\"_blank\" rel=\"external nofollow noopener\"><div class=\"lkc-card\"><div class=\"lkc-info\"><div class=\"lkc-favicon\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/www.google.com\/s2\/favicons?domain=social.msdn.microsoft.com\" alt=\"\" width=\"16\" height=\"16\" \/><\/div><div class=\"lkc-domain\">social.msdn.microsoft.com<\/div><\/div><div class=\"lkc-content\"><figure class=\"lkc-thumbnail\"><img decoding=\"async\" class=\"lkc-thumbnail-img\" src=\"https:\/\/s.wordpress.com\/mshots\/v1\/https%3A%2F%2Fsocial.msdn.microsoft.com%2FForums%2Fja-JP%2Fvbajp%2Fthread%2Fc0765a67-b8ba-40dc-ac52-aac7be9f1d6a?w=100\" width=\"100px\" height=\"108px\" alt=\"\" \/><\/figure><div class=\"lkc-title\">IE\u306e\u30b5\u30dd\u30fc\u30c8\u304c2022\u5e746\u670815\u65e5\u306b\u7d42\u4e86\u3068\u306e\u3053\u3068\u3067\u3059\u304cVBA\u306e\u5bfe\u5fdc\u65b9&amp;...<\/div><div class=\"lkc-url\" title=\"https:\/\/social.msdn.microsoft.com\/Forums\/ja-JP\/vbajp\/thread\/c0765a67-b8ba-40dc-ac52-aac7be9f1d6a\">https:\/\/social.msdn.microsoft.com\/Forums\/ja-JP\/vbajp\/thread\/c0765a67-b8ba-40dc-ac52-aac7be9f1d6a<\/div><\/div><div class=\"clear\"><\/div><\/div><\/a><\/div><\/div>\n<p>\u4e0a\u8ff0\u306e\u5f01\u58eb\u3055\u3093\u542b\u3081\u3066\u3001\u4f55\u4eba\u304b\u306e\u65b9\u304b\u3089\u56de\u7b54\u304c\u5bc4\u305b\u3089\u308c\u3066\u3044\u3066\u3001\u3044\u305a\u308c\u3082\u53c2\u8003\u306b\u306a\u308a\u307e\u3059\u3002<br \/>\n(\u5f01\u58eb\u3055\u3093\u306b\u3044\u305f\u3063\u3066\u306f\u3001\u3059\u3067\u306b\u30a6\u30a3\u30f3\u30c9\u30a6\u304b\u3089HTMLDocument\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3059\u308b\u30b3\u30fc\u30c9\u307e\u3067\u66f8\u304b\u308c\u3066\u3044\u307e\u3059\u3002)<\/p>\n<blockquote class=\"twitter-tweet\">\n<p lang=\"ja\" dir=\"ltr\">\u3068\u308a\u3042\u3048\u305a\u3001WM_HTML_GETOBJECT \u3092\u6295\u3052\u308b\u3068\u3053\u308d\u307e\u3067\u3092 VBA \u3067\u5b9f\u88c5\u3057\u3066\u307f\u305f\u3002<br \/>Edge \u304b\u3089\u5217\u6319\u3059\u308b\u3068\u3053\u308d\u3082\u5f8c\u3067\u4f5c\u308a\u3053\u3080\u3068\u3057\u3088\u3046\u3002<a href=\"https:\/\/t.co\/S2OZ1RSEMB\">https:\/\/t.co\/S2OZ1RSEMB<\/a><\/p>\n<p>&mdash; \u5f01\u58eb (@Benshi_Orator) <a href=\"https:\/\/twitter.com\/Benshi_Orator\/status\/1395608086807650304?ref_src=twsrc%5Etfw\">May 21, 2021<\/a><\/p><\/blockquote>\n<p> <script async src=\"https:\/\/platform.twitter.com\/widgets.js\" charset=\"utf-8\"><\/script> <\/p>\n<div class=\"linkcard\"><div class=\"lkc-external-wrap\"><a class=\"lkc-link no_icon\" href=\"https:\/\/gist.github.com\/Benshi\/8442005d21e8e74bd4d3735a3e77c417\" target=\"_blank\" rel=\"external nofollow noopener\"><div class=\"lkc-card\"><div class=\"lkc-info\"><div class=\"lkc-favicon\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/www.google.com\/s2\/favicons?domain=gist.github.com\" alt=\"\" width=\"16\" height=\"16\" \/><\/div><div class=\"lkc-domain\">Gist<\/div><\/div><div class=\"lkc-content\"><figure class=\"lkc-thumbnail\"><img decoding=\"async\" class=\"lkc-thumbnail-img\" src=\"\/\/www.ka-net.org\/blog\/wp-content\/uploads\/pz-linkcard\/cache\/c06702bc93347b4758ee0f700d2ef3455f44374241ddfd9de4e9988dcf444b8e.jpeg\" width=\"100px\" height=\"108px\" alt=\"\" \/><\/figure><div class=\"lkc-title\">[VBA]\u30a6\u30a3\u30f3\u30c9\u30a6\u304b\u3089 HTMLDocument \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3059\u308b<\/div><div class=\"lkc-url\" title=\"https:\/\/gist.github.com\/Benshi\/8442005d21e8e74bd4d3735a3e77c417\">https:\/\/gist.github.com\/Benshi\/8442005d21e8e74bd4d3735a3e77c417<\/div><div class=\"lkc-excerpt\">\u30a6\u30a3\u30f3\u30c9\u30a6\u304b\u3089 HTMLDocument \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3059\u308b. GitHub Gist: instantly share code, notes, and snippets.<\/div><\/div><div class=\"clear\"><\/div><\/div><\/a><\/div><\/div>\n<p>\u3053\u306e\u30b9\u30d4\u30fc\u30c9\u611f\u305f\u308b\u3084\u3001\u3055\u3059\u304c\u3068\u8a00\u308f\u3056\u308b\u3092\u5f97\u307e\u305b\u3093\uff01\u7d20\u6674\u3089\u3057\u3044\uff01\uff01&#x2728;<br \/>\n\u5f01\u58eb\u3055\u3093\u306e\u30b3\u30fc\u30c9\u3092\u7528\u3044\u308c\u3070\u3001IE\u30e2\u30fc\u30c9\u3067\u8868\u793a\u4e2d\u306e\u30da\u30fc\u30b8\u3092\u64cd\u4f5c\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u308b\u3067\u3057\u3087\u3046\u3002<\/p>\n<p>\u4e00\u65b9\u3001\u30e6\u30b9\u30ad\u30a3\u3055\u3093\u304b\u3089\u306f\u3001<span style=\"color: #ff0000; font-weight: bold;\">\u201cWebBrowser\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306f\u5f15\u304d\u7d9a\u304d\u30b5\u30dd\u30fc\u30c8\u3055\u308c\u308b\u3060\u308d\u3046\u201d<\/span>\u3068\u306e\u30c4\u30a4\u30fc\u30c8\u3082\u3042\u308a\u307e\u3057\u305f\u3002<\/p>\n<blockquote class=\"twitter-tweet\">\n<p lang=\"ja\" dir=\"ltr\">WebBrowser \u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3092\u542b\u3080 IE \u306e\u30b3\u30f3\u30dd\u30fc\u30cd\u30f3\u30c8\u3001WinINet \u306a\u3069\u306e API \u306f\u5f15\u304d\u7d9a\u304d\u30b5\u30dd\u30fc\u30c8\u3057\u307e\u3059\u3002\u3053\u308c\u3089\u306e\u30b5\u30dd\u30fc\u30c8\u7d42\u4e86\u306b\u3064\u3044\u3066\u306f\u73fe\u6642\u70b9\u3067\u672a\u5b9a\u3067\u3059\u304c\u3001\u3084\u306f\u308a 2029 \u5e74\u3092\u3072\u3068\u3064\u306e\u7bc0\u76ee\u3068\u6349\u3048\u3066\u3044\u305f\u3060\u3044\u305f\u65b9\u304c\u78ba\u5b9f\u3067\u3059 (\u3053\u3053\u306f\u500b\u4eba\u306e\u898b\u89e3)\u3002<\/p>\n<p>&mdash; \u30e6\u30b9\u30ad\u30a3 (Yusuke Hara) (@ms_yuhara) <a href=\"https:\/\/twitter.com\/ms_yuhara\/status\/1395054154716913665?ref_src=twsrc%5Etfw\">May 19, 2021<\/a><\/p><\/blockquote>\n<p> <script async src=\"https:\/\/platform.twitter.com\/widgets.js\" charset=\"utf-8\"><\/script> <\/p>\n<p>\u6298\u89d2\u306a\u306e\u3067\u79c1\u3082\u3001\u52d5\u7684\u306b\u8ffd\u52a0\u3057\u305fWebBrowser\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3067Web\u30da\u30fc\u30b8\u64cd\u4f5c\u3092\u884c\u3046\u30de\u30af\u30ed\u3092\u66f8\u3044\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Option Explicit\r\n\r\n'\u52d5\u7684\u306bWebBrowser\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3092\u8ffd\u52a0\u3057\u3066Web\u30da\u30fc\u30b8\u8868\u793a\u3092\u884c\u3046\u30b5\u30f3\u30d7\u30eb\r\n'\u203b&#x5B;VBA \u30d7\u30ed\u30b8\u30a7\u30af\u30c8 \u30aa\u30d6\u30b8\u30a7\u30af\u30c8 \u30e2\u30c7\u30eb\u3078\u306e\u30a2\u30af\u30bb\u30b9\u3092\u4fe1\u983c\u3059\u308b]\u8981\u6709\u52b9\r\nPublic Sub Sample()\r\n  Dim frmBrowser As Object\r\n  Const ComponentName = &quot;UserForm1&quot;\r\n  Const ControlName = &quot;WebView&quot;\r\n  Const CtrlWidth = 640\r\n  Const CtrlHeight = 480\r\n  \r\n  '\u4e8b\u524d\u306bUserForm\u524a\u9664\r\n  On Error Resume Next\r\n  With Application.VBE.ActiveVBProject.VBComponents\r\n    .Remove .Item(ComponentName)\r\n  End With\r\n  On Error GoTo 0\r\n  \r\n  'UserForm(VBIDE.VBComponent)\u8ffd\u52a0\r\n  With Application.VBE.ActiveVBProject.VBComponents.Add(3) 'vbext_ct_MSForm\r\n    .Name = ComponentName\r\n    .Properties(&quot;Caption&quot;).Value = &quot;WebBrowser&quot;\r\n    .Properties(&quot;BackColor&quot;).Value = &amp;HFFFFFF\r\n    .Properties(&quot;Width&quot;).Value = CtrlWidth\r\n    .Properties(&quot;Height&quot;).Value = CtrlHeight\r\n    .Properties(&quot;StartUpPosition&quot;).Value = 1\r\n    .Properties(&quot;ShowModal&quot;).Value = False\r\n    \r\n    'WebBrowser(MSForms.Control)\u8ffd\u52a0\r\n    With .Designer.Controls.Add(&quot;Shell.Explorer.2&quot;)\r\n      .Name = ControlName\r\n      .Top = 0\r\n      .Left = 0\r\n      .Width = CtrlWidth\r\n      .Height = CtrlHeight\r\n    End With\r\n  End With\r\n  \r\n  Set frmBrowser = UserForms.Add(ComponentName)\r\n  frmBrowser.Show\r\n  \r\n  'WebBrowser\u64cd\u4f5c\r\n  With frmBrowser.Controls(ControlName)\r\n    '\u6c17\u4f11\u3081\u7a0b\u5ea6\u306b\u30d8\u30c3\u30c0\u30fc\u306bUser-Agent\u8ffd\u52a0\r\n    .Navigate2 _\r\n      URL:=&quot;https:\/\/www.google.com\/?hl=ja&quot;, _\r\n      Headers:=&quot;User-Agent: Mozilla\/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit\/537.36 (KHTML, like Gecko) Chrome\/90.0.4430.212 Safari\/537.36 Edg\/90.0.818.66&quot;\r\n    Do While .Busy = True Or .ReadyState &lt;&gt; 4\r\n      DoEvents\r\n    Loop\r\n    .Document.getElementsByName(&quot;q&quot;)(0).Value = &quot;\u521d\u5fc3\u8005\u5099\u5fd8\u9332&quot;\r\n    .Document.getElementsByName(&quot;btnK&quot;)(0).Click\r\n  End With\r\nEnd Sub<\/pre>\n<p><a href=\"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/DynamicallyAdd_WebBrowserControl_01.gif\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/DynamicallyAdd_WebBrowserControl_01.gif\" alt=\"\" width=\"887\" height=\"710\" class=\"alignnone size-full wp-image-13588\" \/><\/a><\/p>\n<p>UserForm\u3092\u52d5\u7684\u306b\u8ffd\u52a0\u3057\u3066\u3001\u305d\u306e\u4e0a\u306bWebBrowser\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3092\u633f\u5165\u3057\u3066\u3044\u308b\u3060\u3051\u306e\u30b3\u30fc\u30c9\u3067\u3001\u4f7f\u3044\u52dd\u624b\u306f\u3042\u307e\u308a\u826f\u304f\u3042\u308a\u307e\u305b\u3093\u3057\u3001VB\u30b3\u30f3\u30dd\u30fc\u30cd\u30f3\u30c8\u3092\u52d5\u7684\u306b\u8ffd\u52a0\u3059\u308b\u90fd\u5408\u4e0a\u3001\u300c<span style=\"color: #ff0000; font-weight: bold;\">VBA \u30d7\u30ed\u30b8\u30a7\u30af\u30c8 \u30aa\u30d6\u30b8\u30a7\u30af\u30c8 \u30e2\u30c7\u30eb\u3078\u306e\u30a2\u30af\u30bb\u30b9\u3092\u4fe1\u983c\u3059\u308b<\/span>\u300d\u3092\u6709\u52b9\u306b\u3059\u308b\u5fc5\u8981\u304c\u6709\u308a\u307e\u3059(\u300c<a href=\"https:\/\/docs.microsoft.com\/ja-jp\/office\/vba\/library-reference\/concepts\/security-notes-for-microsoft-office-solution-developers#automating-the-visual-basic-editor\" title=\"Office \u30bd\u30ea\u30e5\u30fc\u30b7\u30e7\u30f3\u958b\u767a\u8005\u5411\u3051\u306e\u30bb\u30ad\u30e5\u30ea\u30c6\u30a3\u306e\u6ce8\u610f\u4e8b\u9805 | Microsoft Docs\" target=\"_blank\" rel=\"noopener\">Visual Basic Editor \u306e\u81ea\u52d5\u5316<\/a>\u300d\u53c2\u7167)\u3002<\/p>\n<p>\u30a4\u30d9\u30f3\u30c8\u3092\u4f7f\u3044\u305f\u3044\u306e\u3067\u3042\u308c\u3070\u3001\u4e0b\u8a18\u30b3\u30fc\u30c9\u306e\u3088\u3046\u306bWithEvents\u3092\u4f7f\u7528\u3059\u308c\u3070\u826f\u3044\u3067\u3057\u3087\u3046\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">'\u203bThisWorkbook\u306b\u8a18\u8ff0\r\n'\u203b&#x5B;Microsoft Internet Controls]\u8981\u53c2\u7167\r\nOption Explicit\r\n\r\nPrivate WithEvents WebView As SHDocVw.WebBrowser\r\n\r\nPublic Sub Sample2()\r\n  Dim frmBrowser As Object\r\n  Const ComponentName = &quot;UserForm1&quot;\r\n  Const ControlName = &quot;WebView&quot;\r\n  Const CtrlWidth = 640\r\n  Const CtrlHeight = 480\r\n  \r\n  '\u4e8b\u524d\u306bUserForm\u524a\u9664\r\n  On Error Resume Next\r\n  With Application.VBE.ActiveVBProject.VBComponents\r\n    .Remove .Item(ComponentName)\r\n  End With\r\n  On Error GoTo 0\r\n  \r\n  'UserForm(VBIDE.VBComponent)\u8ffd\u52a0\r\n  With Application.VBE.ActiveVBProject.VBComponents.Add(3) 'vbext_ct_MSForm\r\n    .Name = ComponentName\r\n    .Properties(&quot;Caption&quot;).Value = &quot;WebBrowser&quot;\r\n    .Properties(&quot;BackColor&quot;).Value = &amp;HFFFFFF\r\n    .Properties(&quot;Width&quot;).Value = CtrlWidth\r\n    .Properties(&quot;Height&quot;).Value = CtrlHeight\r\n    .Properties(&quot;StartUpPosition&quot;).Value = 1\r\n    .Properties(&quot;ShowModal&quot;).Value = False\r\n    \r\n    'WebBrowser(MSForms.Control)\u8ffd\u52a0\r\n    With .Designer.Controls.Add(&quot;Shell.Explorer.2&quot;)\r\n      .Name = ControlName\r\n      .Top = 0\r\n      .Left = 0\r\n      .Width = CtrlWidth\r\n      .Height = CtrlHeight\r\n    End With\r\n  End With\r\n  \r\n  Set frmBrowser = UserForms.Add(ComponentName)\r\n  frmBrowser.Show\r\n  \r\n  Set WebView = frmBrowser.Controls(ControlName)\r\n  With WebView\r\n    '\u6c17\u4f11\u3081\u7a0b\u5ea6\u306b\u30d8\u30c3\u30c0\u30fc\u306bUser-Agent\u8ffd\u52a0\r\n    .Navigate2 _\r\n      URL:=&quot;https:\/\/www.google.com\/?hl=ja&quot;, _\r\n      Headers:=&quot;User-Agent: Mozilla\/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit\/537.36 (KHTML, like Gecko) Chrome\/90.0.4430.212 Safari\/537.36 Edg\/90.0.818.66&quot;\r\n    Do While .Busy = True Or .ReadyState &lt;&gt; 4\r\n      DoEvents\r\n    Loop\r\n    .Document.getElementsByName(&quot;q&quot;)(0).Value = &quot;\u521d\u5fc3\u8005\u5099\u5fd8\u9332&quot;\r\n    .Document.getElementsByName(&quot;btnK&quot;)(0).Click\r\n  End With\r\nEnd Sub\r\n\r\nPrivate Sub WebView_DocumentComplete(ByVal pDisp As Object, URL As Variant)\r\n  Debug.Print &quot;DocumentComplete:&quot; &amp; URL\r\nEnd Sub<\/pre>\n<div id=\"single_banner_area2\" class=\"clearfix one_banner\">\n<div class=\"single_banner single_banner_left\">\n<script async src=\"https:\/\/pagead2.googlesyndication.com\/pagead\/js\/adsbygoogle.js\"><\/script>\r\n<!-- \u8a18\u4e8b\u4e2d(\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u5e83\u544a\u30e6\u30cb\u30c3\u30c8) -->\r\n<ins class=\"adsbygoogle\"\r\n     style=\"display:block\"\r\n     data-ad-client=\"ca-pub-7306936664602087\"\r\n     data-ad-slot=\"5429724765\"\r\n     data-ad-format=\"auto\"\r\n     data-full-width-responsive=\"true\"><\/ins>\r\n<script>\r\n     (adsbygoogle = window.adsbygoogle || []).push({});\r\n<\/script>\n<\/div>\n<div class=\"single_banner single_banner_right\">\n<a href=\"\" target=\"_blank\"><img decoding=\"async\" src=\"\" alt=\"\" title=\"\" \/><\/a>\n<\/div>\n<\/div>\n\n<p>\u4ee5\u4e0a\u306e\u3088\u3046\u306b\u3001IE11\u306e\u30b5\u30dd\u30fc\u30c8\u7d42\u4e86\u5f8c\u306f\u3001\u57fa\u672c\u7684\u306b\u306fIE\u30aa\u30fc\u30c8\u30e1\u30fc\u30b7\u30e7\u30f3\u306b\u3088\u308b\u64cd\u4f5c(CreateObject(&#8220;InternetExplorer.Application&#8221;))\u306f\u3067\u304d\u306a\u304f\u306a\u308b\u3068\u601d\u308f\u308c\u307e\u3059\u304c\u3001IE\u30e2\u30fc\u30c9\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u304b\u3089HTMLDocument\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3057\u305f\u308a\u3001WebBrowser\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3092\u4f7f\u7528\u3057\u305f\u308a\u3068\u3001\u4f55\u3089\u304b\u306e\u65b9\u6cd5\u3067IE\u306b\u3088\u308bWeb\u30da\u30fc\u30b8\u306e\u8868\u793a\u30fb\u64cd\u4f5c\u3092\u884c\u3046\u624b\u6bb5\u306f\u6b8b\u3055\u308c\u308b\u3088\u3046\u3067\u3059\u3002<br \/>\n(\u305d\u308c\u3059\u30892029\u5e74\u3092\u3072\u3068\u3064\u306e\u7bc0\u76ee\u3068\u6349\u3048\u305f\u65b9\u304c\u826f\u3044\u3088\u3046\u3067\u3059\u304c)<\/p>\n<p>\u305f\u3060\u3001MSDN\u30d5\u30a9\u30fc\u30e9\u30e0\u306e\u56de\u7b54\u306b\u3082\u3042\u308a\u307e\u3057\u305f\u304c\u3001IE\u306b\u5bfe\u5fdc\u3057\u3066\u3044\u306a\u3044Web\u30b5\u30a4\u30c8\u3082\u5897\u3048\u3066\u304d\u307e\u3057\u305f\u3057\u3001\u4eca\u5f8c\u3082\u3055\u3089\u306b\u5897\u3048\u7d9a\u3051\u3066\u3044\u304f\u306f\u305a\u3067\u3059\u306e\u3067\u3001\u30de\u30af\u30ed\u304b\u3089\u30d6\u30e9\u30a6\u30b6\u30fc\u306e\u64cd\u4f5c\u3092\u884c\u3046\u969b\u306f\u3001\u3044\u307e\u3055\u3089\u9811\u5f35\u3063\u3066IE\u3092\u3069\u3046\u306b\u304b\u3059\u308b\u3088\u308a\u306f\u3001<a href=\"https:\/\/docs.microsoft.com\/ja-jp\/microsoft-edge\/webdriver-chromium\/\" title=\"\u30c6\u30b9\u30c8 \u30aa\u30fc\u30c8\u30e1\u30fc\u30b7\u30e7\u30f3\u306b WebDriver (Chromium) \u3092\u4f7f\u7528\u3059\u308b - Microsoft Edge Development | Microsoft Docs\" target=\"_blank\" rel=\"noopener\">Selenium WebDriver<\/a>\u3092\u4f7f\u3063\u3066Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308b\u306a\u308a\u3001\u516c\u5f0f\u306b\u7528\u610f\u3055\u308c\u305f\u624b\u6bb5\u3092\u7528\u3044\u305f\u65b9\u304c\u826f\u3044\u3060\u308d\u3046\u3068\u3001\u500b\u4eba\u7684\u306b\u306f\u601d\u3044\u307e\u3059\u3002\u3042\u308b\u3044\u306f\u3001\u30d6\u30e9\u30a6\u30b6\u30fc\u306e\u64cd\u4f5c\u3092Power Automate Desktop\u306e\u3088\u3046\u306aRPA\u30bd\u30ea\u30e5\u30fc\u30b7\u30e7\u30f3\u306b\u5207\u308a\u66ff\u3048\u308b\u306e\u3082\u4e00\u3064\u306e\u65b9\u6cd5\u3068\u8a00\u3048\u308b\u3067\u3057\u3087\u3046\u3002<\/p>\n<div class=\"cardlink\"><a href=\"https:\/\/www.ka-net.org\/blog\/?p=12517\"><div class=\"cardlink_thumbnail\"><img src='https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-Selenium-120x120.png' alt='Selenium WebDriver\u3067Chromium\u7248Edge\u3092\u64cd\u4f5c\u3057\u3066\u307f\u307e\u3057\u305f\u3002' width=120 height=120 \/><\/a><\/div><div class=\"cardlink_content\"><span class=\"timestamp\">2020.01.17<\/span><div class=\"cardlink_title\"><a href=\"https:\/\/www.ka-net.org\/blog\/?p=12517\">Selenium WebDriver\u3067Chromium\u7248Edge\u3092\u64cd\u4f5c\u3057\u3066\u307f\u307e\u3057\u305f\u3002 <\/a><\/div><div class=\"cardlink_excerpt\">\u5148\u65e5\u66f8\u3044\u305f\u4e0b\u8a18\u8a18\u4e8b\u306e\u901a\u308a\u3001Chromium\u7248Microsoft Edge(Chromium Edge)\u306e\u6b63\u5f0f\u7248\u304c\u3064\u3044\u306b\u30ea\u30ea\u30fc\u30b9\u3055\u308c\u307e\u3057\u305f\u3002\r\n\r\n\r\n\r\n\u4eca\u56de\u306fSelenium WebDriver\u3092\u4f7f\u3063\u3066Chromium Edge\u3092\u64cd\u4f5c\u3057\u3066\u307f\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002\r...<\/div><\/div><div class=\"cardlink_footer\"><\/div><\/div>\n<div class=\"cardlink\"><a href=\"https:\/\/www.ka-net.org\/blog\/?p=11677\"><div class=\"cardlink_thumbnail\"><img src='https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-Selenium-120x120.png' alt='\u30102019\u5e746\u6708\u7248\u3011SeleniumBasic\u3067Microsoft Edge\u3092\u64cd\u4f5c\u3057\u3066\u307f\u307e\u3057\u305f\u3002' width=120 height=120 \/><\/a><\/div><div class=\"cardlink_content\"><span class=\"timestamp\">2019.06.05<\/span><div class=\"cardlink_title\"><a href=\"https:\/\/www.ka-net.org\/blog\/?p=11677\">\u30102019\u5e746\u6708\u7248\u3011SeleniumBasic\u3067Microsoft Edge\u3092\u64cd\u4f5c\u3057\u3066\u307f\u307e\u3057\u305f\u3002 <\/a><\/div><div class=\"cardlink_excerpt\">2015\u5e74\u30682018\u5e74\u306bSeleniumBasic\u3092\u4f7f\u3063\u3066Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u8a18\u4e8b\u3092\u66f8\u304d\u307e\u3057\u305f\u3002\r\n\r\n\r\n\r\n\r\n\r\nWindows 10 May 2019 Update\u304c\u516c\u958b\u3055\u308c\u3001Edge\u5468\u308a\u306e\u74b0\u5883\u304c\u5909\u308f\u3063\u305f\u306e\u3067\u3001\u6539\u3081\u3066\u52d5\u4f5c\u78ba...<\/div><\/div><div class=\"cardlink_footer\"><\/div><\/div>\n<p>\u4eca\u56de\u3001\u9b54\u754c\u306e\u4eee\u9762\u5f01\u58eb\u3055\u3093\u3068\u30e6\u30b9\u30ad\u30a3\u3055\u3093\u306e\u4e00\u9023\u306e\u30c4\u30a4\u30fc\u30c8\u304c\u3001IE\u3092\u64cd\u4f5c\u3059\u308b\u7cfb\u306eVBA\u30de\u30af\u30ed\u304c\u4eca\u5f8c\u3069\u306e\u3088\u3046\u306b\u306a\u308b\u306e\u304b\u3092\u8003\u3048\u308b\u4e0a\u3067\u975e\u5e38\u306b\u53c2\u8003\u306b\u306a\u308b\u3082\u306e\u3067\u3057\u305f\u306e\u3067\u3001\u5927\u5909\u52dd\u624b\u3067\u306f\u3042\u308a\u307e\u3059\u304c\u3001\u307e\u3068\u3081\u3055\u305b\u3066\u3044\u305f\u3060\u304d\u307e\u3057\u305f\u3002<\/p>\n<p><span style=\"color: #ff0000; font-weight: bold;\">2021\/5\/23 \u8ffd\u8a18\uff1a<\/span><br \/>\nIE\u30aa\u30fc\u30c8\u30e1\u30fc\u30b7\u30e7\u30f3\u7cfb\u30de\u30af\u30ed\u306e\u4ee3\u66ff\u65b9\u6cd5\u306b\u3064\u3044\u3066\u3001\u4e0b\u8a18\u8a18\u4e8b\u3067\u3082\u3046\u5c11\u3057\u5177\u4f53\u7684\u306b\u307e\u3068\u3081\u3066\u307f\u307e\u3057\u305f\u3002<br \/>\n<div class=\"cardlink\"><a href=\"https:\/\/www.ka-net.org\/blog\/?p=13592\"><div class=\"cardlink_thumbnail\"><img src='https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-ExcelVBA-120x120.png' alt='IE\u30b5\u30dd\u30fc\u30c8\u7d42\u4e86\u3067VBA\u30de\u30af\u30ed\u306f\u3069\u3046\u306a\u308b\u306e\uff1f(2)' width=120 height=120 \/><\/a><\/div><div class=\"cardlink_content\"><span class=\"timestamp\">2021.05.23<\/span><div class=\"cardlink_title\"><a href=\"https:\/\/www.ka-net.org\/blog\/?p=13592\">IE\u30b5\u30dd\u30fc\u30c8\u7d42\u4e86\u3067VBA\u30de\u30af\u30ed\u306f\u3069\u3046\u306a\u308b\u306e\uff1f(2) <\/a><\/div><div class=\"cardlink_excerpt\">\u203b\u4e0b\u8a18\u60c5\u5831\u306f2021\u5e745\u6708\u6642\u70b9\u306e\u60c5\u5831\u3067\u3001\u4eca\u5f8c\u72b6\u6cc1\u304c\u5909\u308f\u3063\u3066\u3044\u304f\u53ef\u80fd\u6027\u304c\u3042\u308a\u307e\u3059\u3002\r\n\r\n\u524d\u56de\u306e\u8a18\u4e8b\u3067Internet Explorer 11\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30b5\u30dd\u30fc\u30c8\u7d42\u4e86\u306b\u4f34\u3063\u3066VBA\u30de\u30af\u30ed\u5468\u308a\u304c\u3069\u3046\u5909\u308f\u308b\u306e\u304b\u3001\u9b54\u754c\u306e\u4eee\u9762\u5f01\u58eb\u3055\u3093\u3068\u30e6\u30b9\u30ad\u30a3\u3055\u3093\u306e\u30c4...<\/div><\/div><div class=\"cardlink_footer\"><\/div><\/div><\/p>\n","protected":false},"excerpt":{"rendered":"\u203b\u4e0b\u8a18\u60c5\u5831\u306f2021\u5e745\u6708\u6642\u70b9\u306e\u60c5\u5831\u3067\u3001\u4eca\u5f8c\u72b6\u6cc1\u304c\u5909\u308f\u3063\u3066\u3044\u304f\u53ef\u80fd\u6027\u304c\u3042\u308a\u307e\u3059\u3002 \u5148\u65e5\u3001Microsoft\u304b\u30892022\u5e746\u6708\u306bInternet Explorer 11\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30b5\u30dd\u30fc\u30c8\u304c\u7d42\u4e86\u3055\u308c\u308b\u3068\u306e [&hellip;]","protected":false},"author":1,"featured_media":7112,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"[IE\u30b5\u30dd\u30fc\u30c8\u7d42\u4e86\u3067VBA\u30de\u30af\u30ed\u306f\u3069\u3046\u306a\u308b\u306e\uff1f]","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[4,48,133,154],"tags":[],"class_list":["post-13587","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-excel-office","category-microsoft-edge","category-selenium"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-ExcelVBA.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-3x9","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/13587","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=13587"}],"version-history":[{"count":5,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/13587\/revisions"}],"predecessor-version":[{"id":13596,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/13587\/revisions\/13596"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7112"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=13587"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=13587"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=13587"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}