Como eu já havia comentado anteriormente, dá pra fazer usando as bibliotecas Microsoft HTML Object e Microsoft XML, v6.0. Elas precisam ser referenciadas dentro do VBA (na janela de código, acesse o menu Ferramentas -> Referências
e marque essas bibliotecas:

Depois, você precisa analisar o código HTML/Javascript da página com o formulário de interesse para descobrir:
- Quais são os campos e valores necessários para o envio da requisição
- Qual é o método de requisição (POST ou GET, por exemplo)
- Qual é o endereço da
action
do formulário (se for vazio, é o próprio endereço da página com o formulário)
Então, monte um código mais ou menos como esse:
Sub GenMegaSenaNumbers()
On Error Resume Next
Dim oHttp As MSXML2.XMLHTTP60
Dim oDoc As MSHTML.HTMLDocument
Dim oText As HTMLParaElement
Dim sURL As String
Dim sParameters As String
' Defina aqui a URL da página de requisição do formulário
sURL = "https://www.random.org/quick-pick/index.php"
' Defina aqui os parâmetros para a consulta
' (usando EXATAMENTE os mesmos nomes dos campos no formulário)
sParameters = "tickets=1&lottery=6x60.0x0"
' Faz a consulta dos dados
Cells(1, 1) = "Aguarde. Fazendo a consulta pelos números do jogo..."
Set oHttp = New MSXML2.XMLHTTP60
oHttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
oHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
oHttp.Open "GET", sURL & "?" & sParameters, False
oHttp.send
' Se o método de acesso for POST ao invés de GET, use assim:
'oHttp.Open "POST", sURL, False
'oHttp.send sParameters
' Checa se o carregamento foi efetuado corretamente
If oHttp.Status <> 200 Then
Cells(1, 1) = "Oops! Não foi possível obter a resposta! Erro: (" & Str(oHttp.Status) & " )" & oHttp.statusText
Exit Sub
End If
' Obtem a resposta
Set oDoc = New MSHTML.HTMLDocument
oDoc.body.innerHTML = oHttp.responseText
' E lê o dado do elemento desejado
Set oText = oDoc.getElementsByClassName("data").Item(0)
Cells(1, 1) = "Sugestão de jogo para a Mega-Sena: " & oText.innerText
End Sub
Sub Botão1_Click()
GenMegaSenaNumbers
End Sub
Esse exemplo tem uma macro (a sub Botão1_Click
) anexada a um botão que executa a sub GenMegaSenaNumbers
, que de fato é a responsável por fazer a requisição e obter a resposta. Nesse exemplo eu consulto a geração de números aleatórios para um jogo de Mega-Sena, serviço gratuito e disponível pelo site Random.org. O formulário nessa página tem vários campos (inclusive um oculto que é dinamicamente montado por Javascript), mas eu usei a ferramenta de desenvolvedor do Google Chrome, na aba Network, para identificar quais parâmetros ele enviava na requisição (muito mais fácil! e deu pra perceber que nem todos os campos eram necessários).
Note que há diferença na forma de passar os parâmetros no VBA se o método é POST ou GET (no caso do exemplo, era GET). Note também o parâmetro False
na chamada de oHttp.Open
(terceiro parâmetro, que não existe na resposta do SOEN original que eu mencionei nos comentários). Ele indica que a chamada não é assíncrona, e assim não é necessário fazer o laço com o DoEvents
para esperar o resultado (o próprio Excel gerencia isso pra você, fazendo a chamada ser síncrona).
Eis o screenshot do resultado:

OBSERVAÇÃO IMPORTANTE: Naturalmente esse método não funciona
com formulários que requerem validação por CAPTCHA. Afinal, é
justamente essa a intenção de um (bom) CAPTCHA: impedir que automatismos
sejam executados na página. Para entender (se precisar), sugiro ler
mais a respeito na Wikipedia e aqui mesmo no SOPT(sugestão de
leitura 1 e sugestão de leitura 2). Independentemente disso, a
solução ideal (e provavelmente, legal) é usar um Web Service sempre que disponível.
O consumo de Web Services nas versões mais novas do Excel é bastante simples.