为Internet更改VBA中的Feature_Browser_Emulation

Question

我一直在谷歌如何使用VBA为我的Internet设置我的Feature_Browser_Emulation，但大多数情况下我会找到VB.NET和其他语言，而不是VBA。有人能帮助我使用VBA来做它的语法吗？提前谢谢。这是关于自动化谷歌地图，谷歌的建议是做这个Feature_Browser_Emulation，但大多数代码不是在VBA。我只想删除谷歌的警告信息"Google不支持这个浏览器“--类似的东西。

Answer 1

我或多或少找到了答案，至少我的案子是这样的。根据下面的链接，模拟Edge的值只是0(零)或任何不属于IE旧版本的值。至少在我的情况下有效。因此，我成功地删除了"Google不支持此浏览器“的错误消息。但是，必须关闭并重新打开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"