Excel:API FULL REST

Função para consultar API

Para criar uma nova função, que acessa API no Excel, pressione em seu teclado ALT + F11. Surgirá uma nova janela (editor Visual Basic). No menu acesse INSERIR/MÓDULO, e cole o texto abaixo:

Function restAPI(name As String)    
   Dim strUrl As String
   Dim xmlhttp As Object
   Set xmlhttp = CreateObject("MSXML2.serverXMLHTTP")    
   strUrl = "http://brp/api/authority/put/" + name    
   xmlhttp.Open "GET", strUrl, False
   xmlhttp.Send
   'MsgBox (xmlhttp.responseText)   
   restAPI = xmlhttp.responseText
End Function

Para chamar no Excel use =resAPI("NOME")