新しいブラウザーを含むWindows 10の最近のリリース後、Microsoft Edgeは、Excel VBAを介してMicrosoft Edgeブラウザーを開く方法を簡単に知っているでしょう。運が悪いので検索してみました。
これは、私がInternet Explorerを開くために使用する現在の基本的なExcel VBAコーディングです。
Sub xyz()
Dim Browser As SHDocVw.InternetExplorer 'Microsoft Internet Controls
Dim HTMLdoc As MSHTML.HTMLDocument 'Microsoft HTML Object Library
Dim URL As String
URL = "http://www.bbc.co.uk/news"
Set Browser = New InternetExplorer
Browser.Silent = True
Browser.navigate URL
Browser.Visible = True
Do
Loop Until Browser.readyState = READYSTATE_COMPLETE
Set HTMLdoc = Browser.document
End Sub
これは、たとえばBBC Webサイトを開くためのVBAコーディングの非常に単純な部分です。
しかし、Microsoft Edgeを開くための新しいコーディングは何ですか?
MS here によると、IE11はWindows 10に同梱されています
Windows 10のデフォルトのブラウザーはMicrosoft Edgeで、これは新しいレンダリングエンジンを搭載しており、Windows上のWebへの道のりです。サイト開発者は、新規および既存のエクスペリエンスについて、テストをMicrosoft Edgeに集中させる必要があります。一部のレガシーシナリオにはInternet Explorer 11が含まれ、他のブラウザーと同様に、ユーザーはそれをデフォルトのブラウザーとして選択することができます。
したがって、IEの既存のコードは引き続き機能するはずです。ただし、試してはいません。
Edgeに関するいくつかの技術的なものを見つけることができます here
2015年8月10日(月)の時点で、1台のPCをWin 7 Pro SP1からWin 10 Proにアップグレードしましたが、提供されたコードは正常に機能します。 IE11は正常に動作し、Webサイトを表示します。 IE11ダウンロードページ は、インストール済みであることを確認します。
Windows 10へのアップデート時に同様の問題が発生しました。「Microsoft Internet Controls」と「Microsoft HTML Object Library」が「参照」から「削除」されたことがわかりました。それらを追加することで問題が解決し、コードを変更することなく問題なく動作しました。これが役立つかどうかわからない。
これは答えではないかもしれませんが、私にとってはうまくいきました。
Internet Explorerオブジェクトは、IE11を使用するWindows 10のVBAを通じて引き続き開きます。ただし、CortanaにIE11を最初に開いてもらい、「初めて使用する」ポップアップとそうでないものすべてを整理する必要がありました。 「IE11へようこそ」「さあ始めましょう」など.
それがすべて終わったら、ブラウザを閉じました。マクロを再実行すると、ブラウザオブジェクトが正常に表示され、通常どおり動作しました。これが誰かを助けることを願っています。
追伸ブラウザーウィンドウを作成するCreateObjectメソッドを使用しています。
excel VBA経由でMicrosoft Edgeブラウザーを開く方法
VBS/VBAはCOMオブジェクトモデル(ActiveX)を使用してデスクトッププロセスと通信します。この機能はEdgeでは利用できません。
幸いなことに、自動化のための新しいクロスブラウザーソリューション(WebDriverなど)が存在し、Edgeはこれらの新しい標準を採用しています。残念ながら、それらを使用するには、使用する手法を変更する必要があります。
Microsoft EdgeはCOMオートメーション(InternetExplorerオブジェクト)をサポートしますか? の複製。