从Internet Explorer切换到Microsoft Edge

Cha*_*lie 10 excel vba excel-vba microsoft-edge

在最近发布的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
Run Code Online (Sandbox Code Playgroud)

例如,这是一个非常直接的VBA编码片段,用于打开BBC网站.

但是,打开Microsoft Edge的新代码是什么?

Chi*_*ten 1

根据 MShere 的说法 IE11 随 Windows 10 一起提供

Windows 10 的默认浏览器是 Microsoft Edge,它由我们新的渲染引擎提供支持,是我们在 Windows 上发展 Web 的道路。网站开发人员应将测试重点放在 Microsoft Edge 上,以获得新的和现有的体验。Internet Explorer 11 将包含在某些旧方案中,用户可以选择将其作为默认浏览器,就像任何其他浏览器一样。

因此 IE 的现有代码应该可以继续工作。不过没试过。

可以在此处找到有关 Edge 的一些技术资料

截至 2015 年 8 月 10 日星期一,我已将一台电脑从 Win 7 Pro SP1 升级到 Win 10 Pro,并且您提供的代码运行良好。IE11运行正常并显示网站。IE11下载页面确认我已经安装了它。