2

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

2 Respostas 2

2

Simulei aqui com seu mesmo código e funcionou corretamente. Inclusive quando alterado o valor do parâmetro para true exibiu o mesmo erro.

Para mim, o erro "O Nome ou o endereço do servidor não pode ser resolvido" acontece se digito propositalmente um nome inválido de URL. Com isso, presumi o seguinte:

Dá certo ao buscar com outros endereços?

Se sim, então seu DNS não está conseguindo encontrar especificamente alguns endereços. Troque o DNS.

Se o seu computador ou rede estão protegidos por uma firewall ou um proxy, verifique se o excel tem permissão de acesso à Web.

5
  • Não da já tentei vários sites diferentes e da o mesmo erro. Então deve ser o que você disse, pois estou tentando fazer isso no banco onde eu trabalho e aqui é cheio disso... O que não entendo é que consigo acessar esses sites, mas pelo excel da esse erro.
    – Lugarini
    Commented 29/05/2016 às 0:53
  • Se o problema for a segunda opção, teria alguma solução?
    – Lugarini
    Commented 29/05/2016 às 13:44
  • @Thiago Adicionei uma entrada manual no firewall e na verdade, o erro retornado foi "Uma conexão com o servidor não pôde ser estabelecida" com isso, também devemos descartar a 2º opção. Vou fazer um outro teste com o DNS e já te retorno. Commented 29/05/2016 às 16:21
  • Isto não fornece uma resposta à pergunta. Para criticar ou solicitar esclarecimento de um autor, deixe um comentário abaixo da publicação dele. - From Review Commented 29/05/2016 às 21:50
  • @AndreFigueiredo não fornece resposta à pergunta porquê?
    – Jorge B.
    Commented 1/06/2016 às 8:17
-2

Aqui também deu o mesmo erro. Mas, quando coloquei a URL com https em vez de http, o código funcionou bem!

MyRequest.Open "GET", "https://www.google.com", False
0

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .