Tenho uma macro em VBA que manipula o Internet Explorer, em certo momento ao clicar em um item, uma nova aba é aberta no Internet Explorer.
Minha duvida é: como mudar o foco do VBA para manipular essa nova aba que foi aberta?
segue código:
Sub x()
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "http://www.comprasgovernamentais.gov.br/acesso-aos-sistemas/comprasnet-siasg"
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop
Set objCollection = ie.Document.getElementsByTagName("a")
i = 0
n = objCollection.Length
Do While i < n
If objCollection(i).href = "https://www.comprasnet.gov.br/seguro/loginPortal.asp" Then
objCollection(i).Click
i = n
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop
Sleep (3000)
End If
i = i + 1
Loop
ie.Document.getElementById("perfil").Item(2).Selected = True
ie.Document.getElementById("perfil").fireEvent "onchange"
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop
Sleep (3000)
ie.Document.getElementById("txtLogin").Value = "xxxxxxx"
ie.Document.getElementById("txtSenha").Value = "xxxxxxx"
ie.Document.getElementById("acessar").Click
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop
Sleep (3000)
Set objCollection = ie.Document.frames(1).Document.getElementsByTagName("div")
i = 0
n = objCollection.Length
Do While i < n
If objCollection(i).innertext = "IRP" Then
objCollection(i).fireEvent "onclick" 'após disparar este evento a nova aba é aberta
i = n
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop
Sleep (3000)
End If
i = i + 1
Loop
End Sub