Como posso enviar uma solicitação HTTP POST para um servidor do Excel usando o VBA?

Qual código VBA é necessário para executar um HTTP POST a partir de uma planilha do Excel?

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
URL = "http://www.somedomain.com"
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send("")

Como alternativa, para maior controle sobre a solicitação HTTP, você pode usar WinHttp.WinHttpRequest.5.1no lugar de MSXML2.ServerXMLHTTP.

Se você precisar que ele funcione no Mac e no Windows, use o QueryTables:

With ActiveSheet.QueryTables.Add(Connection:="URL;http://carbon.brighterplanet.com/flights.txt", Destination:=Range("A2"))
    .PostText = "origin_airport=MSN&destination_airport=ORD"
    .RefreshStyle = xlOverwriteCells
    .SaveData = True
    .Refresh
End With

Notas:

• Em relação à saída ... Não sei se é possível retornar os resultados para a mesma célula que chamou a função VBA. No exemplo acima, o resultado é gravado em A2.
• Em relação à entrada ... Se você deseja que os resultados sejam atualizados ao alterar determinadas células, verifique se essas células são o argumento para sua função VBA.
• Isso não funcionará no Excel para Mac 2008, que não possui VBA. O Excel para Mac 2011 recuperou o VBA.

Para mais detalhes, você pode ver meu resumo completo sobre " uso de serviços web do Excel ".

Além da resposta de Bill the Lizard :

A maioria dos back-end analisa os dados brutos da postagem. No PHP, por exemplo, você terá uma matriz $_POSTna qual variáveis ​​individuais nos dados de postagem serão armazenadas. Nesse caso, você precisa usar um cabeçalho adicional "Content-type: application/x-www-form-urlencoded":

Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "http://www.somedomain.com"
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHTTP.send ("var1=value1&var2=value2&var3=value3")

Caso contrário, você precisará ler os dados brutos da postagem na variável "$HTTP_RAW_POST_DATA".

Você pode usar ServerXMLHTTPem um projeto VBA adicionando uma referência a MSXML.

1. Abra o Editor do VBA (geralmente editando uma macro)
2. Vá para a lista de referências disponíveis
3. Verifique Microsoft XML
4. Clique OK.

(de Referenciando MSXML em projetos VBA )

A documentação do ServerXMLHTTP MSDN possui detalhes completos sobre todas as propriedades e métodos do ServerXMLHTTP.

Em resumo, porém, funciona basicamente assim:

1. Chame o método aberto para conectar-se ao servidor remoto
2. Ligue para enviar para enviar a solicitação.
3. Leia a resposta via responseXML , responseText , responseStream ou responseBody

Para concluir a resposta dos outros usuários:

Para isso, criei um objeto "WinHttp.WinHttpRequest.5.1" .

Envie uma solicitação de postagem com alguns dados do Excel usando o VBA:

Dim LoginRequest As Object
Set LoginRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
LoginRequest.Open "POST", "http://...", False
LoginRequest.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
LoginRequest.send ("key1=value1&key2=value2")

Envie uma solicitação de obtenção com autenticação de token do Excel usando o VBA:

Dim TCRequestItem As Object
Set TCRequestItem = CreateObject("WinHttp.WinHttpRequest.5.1")
TCRequestItem.Open "GET", "http://...", False
TCRequestItem.setRequestHeader "Content-Type", "application/xml"
TCRequestItem.setRequestHeader "Accept", "application/xml"
TCRequestItem.setRequestHeader "Authorization", "Bearer " & token
TCRequestItem.send

Eu fiz isso antes de usar a biblioteca MSXML e, em seguida, usar o objeto XMLHttpRequest, veja aqui .