Gethttp com (Excel) VBA?
-
03-07-2019 - |
Pergunta
Estou procurando uma consulta para uma macro do Excel VBA para obter um código HTML da página da web como string. Encontrei alguma fonte com GethttPrequest, mas não consigo registrar o .NET FramWork System.dll ou vinculá -lo.
Algum trecho amigável de Greenhorn por aí? ;-) Obrigado!
Solução
Perto o suficiente: Como posso enviar uma solicitação de postagem HTTP para um servidor do Excel usando o VBA? -é mesmo para o Excel ;-)
Basta usar uma solicitação GET:
objHTTP.Open "GET", URL, False
Outras dicas
Aqui está uma função compacta que retorna a fonte de quase qualquer URL especificado, incluindo HTTP e JSON.
(Sem referências necessárias.)
Public Function getHTTP(ByVal url As String) As String
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", url, False: .Send
getHTTP = StrConv(.responseBody, vbUnicode)
End With
End Function
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow