已解决。放在这里给尚不能解决的朋友看下吧(或许多余)。
代码如下:
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!