ActiveX Microsoft Web浏览器对象(将网页嵌入excel文件)

Question

我尝试将网页嵌入到.xlsm Excel 2010文件中.那就是我到目前为止所做的:
在Sheet1中,我插入了名为"Microsoft Web Browser"的ActiveX控件,其默认名称是WebBrowser1(Developer-> Insert-> More Controls-> Microsoft Web Browser).然后使用VBA编辑器,我将以下代码放入表单模块Sheet1:

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

我已尝试将各种网站和html文件放在我的本地硬盘上,但WebBrowser1控件中显示的内容始终相同 - "Internet Explorer无法显示网页"错误,单独使用Excel VBA时没有错误.似乎Microsoft Web Browser Object无法建立与网页的连接.

Answer 1

试试这个:

    '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