Vba ActiveX Microsoft Web浏览器对象（将网页嵌入excel文件）

我尝试将网页嵌入到.xlsm Excel 2010文件中。这就是我迄今为止所做的：
在Sheet1中，我插入了名为“Microsoft Web浏览器”的ActiveX控件，其默认名称为WebBrowser1（开发者->插入->更多控件->Microsoft Web浏览器）。然后使用VBA编辑器将以下代码放入图纸模块Sheet1中：

Private Sub Worksheet_Activate()
WebBrowser1.Navigate "http://stackoverflow.com/"
End Sub

我尝试过将各种网站和html文件放在本地硬盘上，但WebBrowser1控件中显示的内容始终相同-“Internet Explorer无法显示网页”错误，仅Excel VBA没有错误。Microsoft Web浏览器对象似乎无法与网页建立连接。

请尝试以下操作：

    'declare the web browser object for future reference and / or for listening to its events
    Dim WithEvents ie As WebBrowser

    'navigate when the worksheet is activated.
    Private Sub Worksheet_Activate()
        Set ie = ActiveSheet.WebBrowser1
        ie.Navigate2 "http://stackoverflow.com/"
    End Sub

试试这个：

    'declare the web browser object for future reference and / or for listening to its events
    Dim WithEvents ie As WebBrowser

    'navigate when the worksheet is activated.
    Private Sub Worksheet_Activate()
        Set ie = ActiveSheet.WebBrowser1
        ie.Navigate2 "http://stackoverflow.com/"
    End Sub

---

在浏览之后，你必须加上括号，这也许就是为什么它不能阅读网站的原因。 应该是

WebBrowser1.Navigate("http://www.stackoverflow.com")

---

在浏览之后，你必须加上括号，这也许就是为什么它不能阅读网站的原因。 应该是

WebBrowser1.Navigate("http://www.stackoverflow.com")

---

用'Dim with events'声明

WebBrowser

对象的属性会发生什么变化？@Qbik语句Dim with events让我们注册有问题的对象，以便VBA可以监听它的事件，就像默认情况下暴露它的事件的工作表对象一样（onActivate，SelectionChange，ecc.）。例如，对于WebBrowser，您将能够在OnQuit、onDownloadComplete事件以及更多事件上编码。它实际上并没有改变它的属性。用'Dim with events'声明

WebBrowser

对象的属性会发生什么变化？@Qbik语句Dim with events让我们注册有问题的对象，这样VBA就可以监听它的事件，就像默认情况下暴露其事件的工作表对象一样（onActivate，SelectionChange，ecc。）。因此，例如，对于WebBrowser，您可以在OnQuit、onDownloadComplete事件以及更多事件上进行编码。它实际上不会更改其属性。这不是真的。这两种语法都受支持。这两种语法都不受支持。