Olá, eu encontrei um código que entra em um site e faz autenticação. Após isso ele está na home page do site. Eu queria colocar para esse código entrar em um outro link, mas sem fechar o Internet Explorer que está aberto e autenticado. Primeira parte do código ele entra no site e autentica (essa eu já tenho), segunda parte ele escreve um outro link e é redirecionado, por exemplo: https://stackoverflow.com/.
Segue o Código:
Sub Login()
Dim oHTML_Element As IHTMLElement
Dim sURL As String
Dim myURL As String
Dim URL As String
Dim objElement As Object
Dim IE As Object
Dim IEapp As Object
Dim enderecoDaUrl As String
On Error GoTo Err_Clear
sURL = "https://clientes.tray.com.br/?redirect=redirected"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.navigate sURL
oBrowser.Visible = True
Do
Loop Until oBrowser.readyState = READYSTATE_COMPLETE
Set HTMLDoc = oBrowser.document
HTMLDoc.all.loja.Value = Range("D4").Value
HTMLDoc.all.usuario.Value = Range("D2").Value
HTMLDoc.all.senha.Value = Range("D3").Value
For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
Next
Err_Clear:
Resume Next
Sleep (5000)
'AQUI IRIA A SEGUNDA PARTE'
End Sub
Após ir para essa segunda parte, ao entrar no link, é feito automaticamente o download de um arquivo .zip....Voces tem algum outro código pra abrir esse arquivo zip que foi baixado em uma outra sheet do excel que estou trabalhando?
Obrigado!