已解决。放在这里给尚不能解决的朋友看下吧（或许多余）。
代码如下：
Public Sub GoToOkexcel()
'打开网页
Dim myIE As InternetExplorer
Set myIE = New InternetExplorer
With myIE
.Visible = True
.Navigate "IP
End With
Set myIE = Nothing
End Sub
运行时可能会出现“数据未定义”错误。
解决办法：
在VBA编辑器窗口依次点击
工具==引用
勾选Microsoft Internet Controls
确定，再运行，OK!
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024