更改 VBA Excel for Internet Explorer 中的Feature_Browser

问：

我一直在谷歌上搜索如何使用 VBA 为我的 Internet Explorer 设置Feature_Browser_Emulation，但大多数情况下，我发现 VB.NET 和 VBA 以外的其他语言。谁能帮我使用VBA执行此操作的语法？提前致谢。这是关于自动化谷歌地图的，谷歌的建议是Feature_Browser_Emulation这样做，但大多数代码不在VBA中。我只想删除 Google 的警告消息“Google Maps API 不支持此浏览器”——类似的东西。

Excel VBA Internet-Explorer 注册表编辑器

至少对于我的情况，我或多或少已经找到了答案。根据下面的链接，模拟 Edge 的值只是 0（ZERO）或任何与旧版本 IE 无关的值。至少它对我有用。所以我已经成功删除了错误消息“Google Maps API不支持此浏览器”。但是，必须关闭并重新打开 Excel 才能正常工作。

https://www.devhut.net/everything-you-never-wanted-to-know-about-the-access-webbrowser-control/

    Dim obj_Shell as Object
    Set obj_Shell = CreateObject("wscript.shell")
    
    obj_Shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet 
    Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\EXCEL.EXE", 0, 
    "REG_DWORD"

更改 VBA Excel for Internet Explorer 中的Feature_Browser_Emulation

Change Feature_Browser_Emulation in VBA Excel for Internet Explorer

评论

评论