Excel to Use Rest API to communicate with a server

Excel to Use Rest API to communicate with a server

• 1.
  Getting Excel touse Rest API Here is a way to retrieve data from a server that supports REST API. Not sure how useful this will be, but I am sharing anyway. On excel a button with macro is placed. Clicking the button we get a window that shows the data. Now if I had time, I could list data into excel cells, but I don’t. Willing to e-mail the excel to anyone who wants it. The Button method or the whole macro looks something like this. The Base64Encode function does basic encoding of username and password. Option Explicit Sub Button1_Click() Dim restReq, url, userName, password Set restReq = CreateObject("Microsoft.XMLHTTP") ' Replace <node> with the address of your INSTEON device
• 2.
  ' Additionally, anyREST command will work here url = "http://192.168.3.235:8080/mobile/name?name=a@,customer=true&sortby=+name" ' If auth is required, replace the userName and password values ' with the ones you use on your ISY userName = "Sam" password = "Somepass" restReq.Open "GET", url, False restReq.setRequestHeader "Authorization", "Basic " + Base64Encode(userName + ":" + password) restReq.send 'WScript.echo restReq.responseText MsgBox (restReq.responseText) End Sub Function Base64Encode(sText) Dim oXML, oNode Set oXML = CreateObject("Msxml2.DOMDocument.3.0") Set oNode = oXML.CreateElement("base64") oNode.DataType = "bin.base64" oNode.nodeTypedValue = Stream_StringToBinary(sText) Base64Encode = oNode.Text Set oNode = Nothing Set oXML = Nothing End Function Function Base64Decode(ByVal vCode) Dim oXML, oNode Set oXML = CreateObject("Msxml2.DOMDocument.3.0") Set oNode = oXML.CreateElement("base64") oNode.DataType = "bin.base64" oNode.Text = vCode Base64Decode = Stream_BinaryToString(oNode.nodeTypedValue) Set oNode = Nothing Set oXML = Nothing End Function 'Stream_StringToBinary Function '2003 Antonin Foller, http://www.motobit.com 'Text - string parameter To convert To binary data Function Stream_StringToBinary(Text) Const adTypeText = 2 Const adTypeBinary = 1 'Create Stream object Dim BinaryStream 'As New Stream Set BinaryStream = CreateObject("ADODB.Stream") 'Specify stream type - we want To save text/string data. BinaryStream.Type = adTypeText
• 3.
  'Specify charset Forthe source text (unicode) data. BinaryStream.Charset = "us-ascii" 'Open the stream And write text/string data To the object BinaryStream.Open BinaryStream.WriteText Text 'Change stream type To binary BinaryStream.Position = 0 BinaryStream.Type = adTypeBinary 'Ignore first two bytes - sign of BinaryStream.Position = 0 'Open the stream And get binary data from the object Stream_StringToBinary = BinaryStream.Read Set BinaryStream = Nothing End Function 'Stream_BinaryToString Function '2003 Antonin Foller, http://www.motobit.com 'Binary - VT_UI1 | VT_ARRAY data To convert To a string Function Stream_BinaryToString(Binary) Const adTypeText = 2 Const adTypeBinary = 1 'Create Stream object Dim BinaryStream 'As New Stream Set BinaryStream = CreateObject("ADODB.Stream") 'Specify stream type - we want To save binary data. BinaryStream.Type = adTypeBinary 'Open the stream And write binary data To the object BinaryStream.Open BinaryStream.Write Binary 'Change stream type To text/string BinaryStream.Position = 0 BinaryStream.Type = adTypeText 'Specify charset For the output text (unicode) data. BinaryStream.Charset = "us-ascii" 'Open the stream And get text/string data from the object Stream_BinaryToString = BinaryStream.ReadText Set BinaryStream = Nothing End Function