作者:手机用户2502881937 | 来源:互联网 | 2023-05-25 21:35
我尝试将网页嵌入到.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无法建立与网页的连接.
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