Excel VBA - WebBrowser无法打开html文件

时间:2015-12-11 08:11:51

标签: javascript excel vba internet-explorer

我在我的文件夹中创建了一个网页(简单的谷歌地图like this),我需要在excel的Web浏览器中呈现该网页。当我单击按钮以在WebBrowser组件中加载此文件时,JavaScript似乎无法正常工作。我将内容保存到文本文件并在IE中启动。我注意到IE的底部有一个警告,它显示" Internet Explorer限制了这个网页运行脚本或ActiveX控件。"并且有一个按钮,显示"允许被阻止的内容"当我点击它然后页面正确呈现。

我假设webbrowser控件遇到了同样的问题。在VBA中是否有办法以编程方式允许阻止的内容,以便javascript按预期运行?

Sub Show_map()
    ThisWorkbook.ActiveSheet.WebBrowser1.Silent = True
    'string below not works
    ThisWorkbook.ActiveSheet.WebBrowser1.Navigate ThisWorkbook.Path & "\google.html" 'not work
    'string below works
    ThisWorkbook.ActiveSheet.WebBrowser1.Navigate2 "https://google-developers.appspot.com/maps/documentation/javascript/examples/full/map-simple" 'work
End Sub

非常感谢您提供的任何帮助。

0 个答案:

没有答案