A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
Sub BuscarEndereco()
'https://www.youtube.com/watch?v=8NANMdh2iY4
Dim xml As New MSXML2.ServerXMLHTTP60
Dim htmlDoc As New MSHTML.HTMLDocument
Dim tabela As IHTMLElement, dados As IHTMLElementCollection
Dim url As String
Dim i As Integer
url = "https://www2.correios.com.br/sistemas/buscacep/resultadoBuscaEndereco.cfm"
xml.Open "Post", url, False
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.Send "CEP=13012000"
htmlDoc.Body.innerHTML = xml.responseText
Set tabela = htmlDoc.getElementsByClassName("tmptabela").Item(0)
If tabela Is Nothing Then
MsgBox "Não foi encontrado!"
Exit Sub
End If
Set dados = tabela.getElementsByTagName("td")
For i = 1 To 4
Range("B7:E7").Cells(i).Value = dados(i - 1).innerText
Next
End Sub
Gostaria da ajuda dos senhores para conseguir informações de outro site, pois, não consegui fazer as devidas adaptações que são necessárias.
Há uma longa curva de aprendizado para transformar o código abaixo no que precisa. Em resumo, você precisará capturar o POST feito na página (ou GET se for baseado em querystring) e daí começar a trabalhar em coletar os resultados.
Se pareceu algo complicado, você provavelmente se beneficiará do Selenium. Aqui deixo uma série de artigos para iniciar nesta jornada (fora os posts aqui no próprio fórum sobre o assunto):
