无法使用vba在ie的多个选项卡中输入文本

Sub InputTextInIETabs()
    Dim shell As Object
    Dim windows As Object
    Dim ie As Object
    Dim doc As Object
    Dim inputElement As Object
    
    ' 创建Shell对象
    Set shell = CreateObject("Shell.Application")
    ' 获取所有窗口
    Set windows = shell.Windows
    
    ' 遍历所有窗口
    For Each ie In windows
        ' 判断窗口是否为IE浏览器窗口
        If TypeName(ie.Document) = "HTMLDocument" Then
            ' 判断窗口是否为选项卡
            If InStr(1, ie.Document.Title, "Internet Explorer", vbTextCompare) > 0 Then
                ' 切换到目标选项卡
                ie.Visible = True ' 可选，如果选项卡是隐藏的，可以设置为可见
                ie.Document.ParentWindow.Focus ' 可选，如果选项卡没有焦点，可以设置为焦点
                
                ' 在选项卡中输入文本
                Set doc = ie.Document
                Set inputElement = doc.getElementById("inputId") ' 根据输入框的ID获取元素
                inputElement.Value = "要输入的文本"
                
                ' 可以继续在该选项卡中执行其他操作
                
                ' 退出循环，只处理第一个符合条件的选项卡
                Exit For
            End If
        End If
    Next ie
    
    ' 释放对象
    Set inputElement = Nothing
    Set doc = Nothing
    Set ie = Nothing
    Set windows = Nothing
    Set shell = Nothing
End Sub