[已解决]VBA如何调用已经打开的网页，而不是新开一个网页

wanao2008

新开网页的方法我会了，代码如下：
Sub test1()
    With CreateObject("internetexplorer.application")
            .Visible = True
            .Navigate "h t t p : / / b b s .szonline.net/reg/register.aspx"
            Do Until .ReadyState = 4
                DoEvents
            Loop
        Set oDoc = .Document
       '下面代码为自动填充网页等的操作
        oDoc.all.ulive1.Value = “XXXXXXX“
    End With
End Sub

我想请教的是，我现在先打开" bbs.szonline.net/reg/ register.aspx“这个网页，再在Excel里的VBA调用这个打开的网页，该用什么语句？

请高手赐教！先谢谢了！

最佳答案

月排行榜 / 总排行榜

wcymiss

2014-3-7 10:18

1. Function FindWin(ByVal strRef As String) As Object
   
2.     '找寻已打开的、以strRef为开头网址的网页
   
3.     Dim objWin As Object
   
4.     For Each objWin In CreateObject("Shell.Application").Windows
   
5.         Do While objWin.ReadyState <> 4 Or objWin.Busy
   
6.             DoEvents
   
7.         Loop
   
8.         If LCase(TypeName(objWin.Document)) = "htmldocument" Then
   
9.             If objWin.locationurl Like strRef & "*" Then
   
10.                 Set FindWin = objWin
    
11.                 Exit For
    
12.             End If
    
13.         End If
    
14.     Next
    
15.     Set objWin = Nothing
    
16. End Function

复制代码

跳转到最佳答案楼层

hwc2ycy

把创建的对象引用先赋予对象变量，只要没释放，随时可以调用打开网址。

hwc2ycy

1. Sub test1()
   
2.     Dim ie As Object
   
3.     Set ie = CreateObject("internetexplorer.application")
   
4.     With ie
   
5.         .Visible = True
   
6.         .navigate "http://bbs.szonline.net/reg/register.aspx"
   
7.         Do Until .ReadyState = 4
   
8.             DoEvents
   
9.         Loop
   
10.         Set oDoc = .Document
    
11.         '下面代码为自动填充网页等的操作
    
12.         oDoc.all.ulive1.Value = "XXXXXXX"
    
13.     End With
    
14. End Sub

复制代码

把创建的对象引用赋予变量，这样你也方便调试，代码量也没增加多少。
只需调用Ie对象的方法就可以了。

wanao2008

hwc2ycy 发表于 2014-3-6 08:25
把创建的对象引用赋予变量，这样你也方便调试，代码量也没增加多少。
只需调用Ie对象的方法就可以了。

谢谢回答！你说的方法我会，但和我的实际想法还不太一样，我的意思是：

1、比如一个带有数据的网页，只有输入“用户名”和“密码”后才能打开查看；

2、我手动输入了“用户名”和“密码”后，进入到了数据页；

3、现在，就是现在，我打开Excel，然后想调用这个已经打开的数据页，怎么调用这个已经打开的页面（当前页）。

另：用EXCEL逐步输入密码然后进入的方法我会，我只想知道怎么调用当前打开的页面，而不是新开一个新页面。

hwc2ycy

当前页面，你可以访问IE对象获取。

wcymiss

1. Function FindWin(ByVal strRef As String) As Object
   
2.     '找寻已打开的、以strRef为开头网址的网页
   
3.     Dim objWin As Object
   
4.     For Each objWin In CreateObject("Shell.Application").Windows
   
5.         Do While objWin.ReadyState <> 4 Or objWin.Busy
   
6.             DoEvents
   
7.         Loop
   
8.         If LCase(TypeName(objWin.Document)) = "htmldocument" Then
   
9.             If objWin.locationurl Like strRef & "*" Then
   
10.                 Set FindWin = objWin
    
11.                 Exit For
    
12.             End If
    
13.         End If
    
14.     Next
    
15.     Set objWin = Nothing
    
16. End Function

复制代码

wanao2008

wcymiss 发表于 2014-3-7 10:18

你的答案太完美了，怎么给你加分？

非常感谢！

wanao2008

wcymiss 发表于 2014-3-7 10:18

这位老师你好，我又开了个新贴，关于如何用VBA自动填表的OBJECT类的问题，请问能解决吗？
贴名为：VBA自动填表单问题：如何操作OBJECT
非常感谢！

問天

学习帮顶