VBA网页抓取：如何引用弹出的新网页标签页

别担心，刚接触VBA Webscraping遇到这种问题太正常了，我当初也踩过类似的坑！针对点击搜索按钮弹出新标签页的情况，给你几个实用的解决方案：

方案1：修改按钮的target属性 #

很多时候按钮弹出新标签页是因为它的target="_blank"属性，我们可以先把这个属性改成_self，让它在当前窗口打开，再点击按钮：

Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "你的内部网站地址"

' 等待页面完全加载
Do While ie.Busy Or ie.ReadyState <> 4
    DoEvents
Loop

' 定位搜索按钮并修改target属性
Dim searchBtn As Object
On Error Resume Next ' 防止找不到元素报错
Set searchBtn = ie.Document.getElementById("你的搜索按钮ID")
' 如果是用类名定位：Set searchBtn = ie.Document.getElementsByClassName("你的搜索按钮类名")(0)
On Error GoTo 0

If Not searchBtn Is Nothing Then
    searchBtn.setAttribute "target", "_self"
    searchBtn.Click
Else
    MsgBox "未找到搜索按钮元素"
End If

' 后续处理搜索结果...

方案2：直接调用搜索的JavaScript函数 #

如果搜索按钮是通过JavaScript触发提交的，你可以跳过点击按钮，直接调用对应的JS函数，这样就能避免新标签页的问题。比如查看按钮的onclick属性，假设是submitSearch()，那么：

' 页面加载完成后执行
ie.Document.parentWindow.execScript "submitSearch();"

方案3：切换到新打开的标签页继续操作 #

如果前两种方法都不适用，你可以在按钮点击后，遍历浏览器窗口，找到新打开的标签页并切换过去：

' 点击搜索按钮后等待几秒让新标签页加载
Application.Wait Now + TimeValue("00:00:02")

Dim newWindow As Object
For Each newWindow In CreateObject("Shell.Application").Windows
    ' 通过URL或标题判断是否是新的搜索结果页面
    If InStr(newWindow.LocationURL, "搜索结果页面的特征关键词") > 0 And newWindow.hwnd <> ie.hwnd Then
        Set ie = newWindow ' 将ie对象切换到新窗口
        Exit For
    End If
Next

' 现在可以操作新标签页的内容了
MsgBox "已切换到新标签页，URL：" & ie.LocationURL

额外提醒 #

• 确保页面完全加载后再操作元素，不然容易出现找不到元素的情况；
• 如果搜索框或按钮在iframe里，需要先切换到对应的iframe：ie.Document.frames("iframe的ID或名称").Document；
• 内部网站可能有登录验证，确保你的IE实例已经处于登录状态。

内容的提问来源于stack exchange，提问作者J.Nag695