[已解决]打开指定网址出错

桀骜孤星

Public Sub 技巧20_006()
    Dim myIE As InternetExplorer     这一句就有错
    Set myIE = New InternetExplorer
    With myIE
        .Visible = True
        .Navigate ""    '指定网址
    End With
    Set myIE = Nothing
End Sub
在原来的文件没错，我想照搬下，却出错啦。请问为何

最佳答案

月排行榜 / 总排行榜

wayy

2012-3-13 14:38

1. 
   
2. Sub EP()
   
3.    Set IE = CreateObject("InternetExplorer.application")
   
4.    IE.Visible = True
   
5.    IE.navigate "http://www.excelpx.com"  '只把这一句话改了就OK了
   
6. End Sub

复制代码

跳转到最佳答案楼层

wayy

1. 
   
2. Sub EP()
   
3.    Set IE = CreateObject("InternetExplorer.application")
   
4.    IE.Visible = True
   
5.    IE.navigate "http://www.excelpx.com"  '只把这一句话改了就OK了
   
6. End Sub

复制代码

zjdh

注意引用控件

桀骜孤星

请问是不是PUBLIC不行呀，它在原来的文件是行的，网址是论坛不给发的原因

桀骜孤星

版主的代码运行又正常，请教如何自动输入用户名和密码呢，自动取单元格数值去登陆呢

zjdh

桀骜孤星 发表于 2012-3-13 15:27
请问是不是PUBLIC不行呀，它在原来的文件是行的，网址是论坛不给发的原因

不是给你说了吗，一个控件未引用！

桀骜孤星

哦，版主的代码我也没引用控件

zjdh

本身有多种解决办法，你1楼和4楼的帖子问为什么出错啦！！
没问有何解决办法！！

清风明月12

谢谢高手，我改了一下，让它适用于打开多个网址
Sub 打开指定网址的宏代码()
   '这套代码无需去“工具”菜单中选中特殊的“引用”
   Set IE = CreateObject("InternetExplorer.application")
   IE.Visible = True
   IE.navigate "http://iask.sina.com.cn/b/7276614.html"  '此处填网址
   
   
   Set IE = Nothing
   Set IE = CreateObject("InternetExplorer.application")
   IE.Visible = True
    IE.navigate "http://www.excelpx.com/forum.php?mod=viewthread&tid=238239" '此处填网址
   
End Sub