更改VBA Excel for Internet Explorer中的Feature_Browser_EEmulatio

Question

我一直在谷歌上搜索如何使用VBA为我的Internet Explorer设置Feature_Browser_EEmulation，但我主要找到VB.NET和VBA以外的其他语言。有人能帮我用VBA做这件事的语法吗？提前谢谢。这是关于谷歌地图的自动化，谷歌建议执行此功能_Browser_EEmulation，但大多数代码都不在VBA中。我只想删除谷歌的警告消息"；谷歌地图API不支持此浏览器"--类似的东西。

Answer 1

至少对于我的案例，我或多或少已经找到了答案。根据下面的链接，模拟Edge的值仅为0(ZERO(或任何不属于旧版本IE的值。至少对我来说是有效的。所以我已经成功地删除了错误消息"；谷歌地图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_USERSoftwareMicrosoftInternet 
ExplorerMainFeatureControlFEATURE_BROWSER_EMULATIONEXCEL.EXE", 0, 
"REG_DWORD"