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

EN

Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
IE.Navigate ThisWorkbook.Sheets("Sheet4").Range("Link")
Do
If IE.ReadyState = 4 Then
Exit Do
Else
DoEvents
End If
Loop
On Error Resume Next
IE.document.all("admin_name").Value = ThisWorkbook.Sheets("Sheet4").Range("User")
IE.document.all("admin_pass").Value = ThisWorkbook.Sheets("Sheet4").Range("Pass")
Set ElementCol = IE.document.getElementsByTagName("button")
For Each link In ElementCol
If link.innerHTML = "LOGIN" Then
link.Click
Exit For
End If
Next
Application.Wait (Now + TimeValue("0:00:04")) ' Utill this line the IE opens the URL (and it is password protected)
' From here on the code opens the customer's records page
x = Range("J1").CurrentRegion.Rows.Count
Y = x - 1
For i = 1 To Y
ActiveCell.Offset(1, -1).Select
Dim navi As String
navi = "Sample URL"
IE.Navigate navi, CLng(2048) ' This is code which i used to open webpages in multiple TABS
Application.Wait (Now + TimeValue("0:00:04"))
Dim Firstname As Variant
Firstname  = ActiveCell.Value
IE.document.getelementsbyname("cc_first_six").Item.innertext = Firstname  
ActiveCell.Offset(0, 1).Select
Dim Lastname As Variant
Lastname = ActiveCell.Value
IE.document.getelementsbyname("cc_last_four").Item.innertext = Lastname 
Set ElementCol = IE.document.getElementsByTagName("a")
For Each link In ElementCol
If link.innerHTML = "Show Results" Then
link.Click
End If
Next
Next i