如何解决浏览器控件中的兼容性视图
当我尝试在 Excel 的 webbrowser 控件中加载 Google 地图 URL 时,它给出
“您似乎已启用 Internet Explorer 兼容性视图,除非关闭,否则谷歌地图将无法正常工作”
是否有远离注册表编辑器解决方案的解决方案?我与其他人共享此文件,我需要它在任何计算机上工作。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$4" Then
Application.SendKeys "%{down}",True
DoEvents
Application.SendKeys "{right}"
End If
If Target.Address = "$F$4" Then
Application.SendKeys "%{down}",True
DoEvents
Application.SendKeys "{right}"
End If
If Target.Address = "$G$4" Then
Application.SendKeys "%{down}",True
DoEvents
Me.WebBrowser1.Navigate (Sheets("Data").Range("W3"))
Do
DoEvents
Loop Until Me.WebBrowser1.ReadyState = READYSTATE_COMPLETE
Me.WebBrowser1.Document.body.doscroll
Me.WebBrowser1.Document.body.doscroll
Application.SendKeys "{down}",True
Application.SendKeys "{down}",True
DoEvents
Application.SendKeys "{down}",True
End If
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。