在 Internet Explorer VBA Excel 中更改 Feature_Browser_Emulation

Change Feature_Browser_Emulation in VBA Excel for Internet Explorer

我一直在谷歌搜索如何使用 VBA 为我的 Internet Explorer 设置我的 Feature_Browser_Emulation,但大多数时候我发现 VB.NET 和 VBA 以外的其他语言。任何人都可以帮助我使用 VBA 的语法吗?提前致谢。这是关于 Google 地图的自动化,Google 的建议是这样做 Feature_Browser_Emulation,但大多数代码不在 VBA 中。我只想删除 Google“Google 地图 API 不支持此浏览器”之类的警告消息。

至少我的情况或多或少找到了答案。根据下面的 link,模拟 Edge 的值只是 0(零)或与旧版 IE 无关的任何值。至少它对我有用。所以我已经成功删除了错误消息“Google 地图 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"