VBA interaction with IE

0

Good morning ...

I need to know how I can get the zip codes and numbers listed in a spreadsheet with VBA, with this information going one by one at a URL and saving results and a new spreadsheet. I know very little about VBA, the code I'm testing follows. I am testing and need it urgently as it is for my service and I am going crazy already rs Thanks

    Sub FazerLoginSite()
Dim IE As Object
Set IE = CreateObject(“InternetExplorer.application”)
With IE
.Visible = True
‘aqui vai o link que vai injetar a pesquisa para acessar os dados
.Navigate (“https://www.meusite.com.br“)
While .Busy Or .ReadyState <> 4: DoEvents: Wend
.Document.getElementById("inner-editor").Focus
.Document.getElementById("inner-editor").Value = “COLOQUE O CEP“

'Coloque os demais campos no site
.Document.getElementById(“Ver qual ID do numero no html“).Focus
.Document.getElementById(“Ver qual ID do numero no html“).Value = “COLOQUE O NUMERO“
.Document.All(“Verificar qual ID do Botão “).Click
While .Busy Or .ReadyState <> 4: DoEvents: Wend
Debug.Print .LocationURL
End With
End Sub
    
asked by anonymous 17.09.2018 / 14:38

0 answers