请问如何用VBA打开网页？

山中无甲子

请问如何用VBA打开网页？在这里搜索了下，没找到能用的，还是没整明白，请教高手帮给段代码，并解释下，谢谢！

山中无甲子

已解决。放在这里给尚不能解决的朋友看下吧（或许多余）。

代码如下：
Public Sub GoToOkexcel()
    '打开网页
    Dim myIE As InternetExplorer
    Set myIE = New InternetExplorer
        With myIE
            .Visible = True
            .Navigate "http://www.cnrmmmmmmmmmmwwwwiiiiiib.net/bbs/"
        End With
    Set myIE = Nothing
End Sub

运行时可能会出现“数据未定义”错误。

解决办法：

在VBA编辑器窗口依次点击

工具==引用

勾选Microsoft  Internet  Controls

确定，再运行，OK!

[ 本帖最后由 山中无甲子 于 2009-6-14 15:19 编辑 ]

dul

使用 Internet Transfer 控件(工具>>附加控件:Microsoft Internet Transfer Control)可能比代码“键盘操作”好佷多

http://club.excelhome.net/viewthread.php?tid=3367

www.36600.net

一行代码即可

Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.baidu.com", vbNormalFocus

将网址换成你需要的

dul

楼上的那行也臃肿，减廋版
Shell "explorer " & "http://club.excelhome.net/forum-2-1.html", 0

wangpeng692

原帖由 山中无甲子 于 2009-6-14 15:17 发表
已解决。放在这里给尚不能解决的朋友看下吧（或许多余）。

代码如下：
Public Sub GoToOkexcel()
    '打开网页
    Dim myIE As InternetExplorer
    Set myIE = New InternetExplorer
        With myIE
...

上面的代码可实现在myIE上打开网页1，同时还想在新选项卡上打开网页2（不关闭网页1），该如何写呢？

YP785672909

打开了网页之后，如果需要对其中的数据进行筛选，并导出到excel中，该怎么实现？？？

fdsds12

不错不错！！！