Estou tentando fazer um GET em VBA no Excel, e encontrei vários exemplos, segue abaixo o que estou usando:
Sub http()
Dim MyRequest As Object
Set MyRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
MyRequest.Open "GET", "http://www.google.com", False
MyRequest.Send
MsgBox MyRequest.ResponseText
End Sub
Em todos os exemplos que testei, mostra o seguinte erro quando executa o MyRequest.Send
:
"Erro em tempo de execução '-2147012889 (80072ee7)':
O Nome ou o endereço do servidor não pode ser resolvido"
Já inclui a referência Microsoft WinHTTP Services, version 5.1
no meu projeto.
O que pode estar acontecendo ou faltando?
EDIT
Tentei também alterar:
MyRequest.Open "GET", "http://www.google.com", True
Apresenta o seguinte erro:
"Erro em tempo de execução '-2147483638 (8000000a)':
Os dados necessários para concluir esta operação ainda não estão disponíveis"
OBS: A rede aqui na empresa é protegida por firewall