Zoho API in Excel

Zoho API in Excel

I'm trying to use Zoho CRM's API to suck data directly into Excel using a web query.

I can see the the xml in the message box, but the value doesn't go in my sheet.

Thanks

VBA:

Dim sUri As String

Dim i As Integer

Dim objElem As MSXML2.IXMLDOMElement

sUri = "https://crm.zoho.com/crm/private/xml/Leads/getSearchRecords?authtoken=xxxxxxxx1&scope=crmapi%20&selectColumns=Leads(First%20Name,Last%20Name,Email,Company)&searchCondition=(Email|=|FVINCENT@2COM.FR)"

Set http = CreateObject("MSXML2.ServerXMLHTTP")

Set objXML = CreateObject("MSXML2.DomDocument")

'MsgBox http.responseText

http.Open "POST", sUri, False

http.setRequestHeader "Content-Type", "text/xml"

http.Send "https://crm.zoho.com/crm/private/xml/Leads/getSearchRecords?authtoken=xxxxxxxxxx&scope=crmapi%20&selectColumns=Leads(First%20Name,Last%20Name,Email,Company)&searchCondition=(Email|=|FVINCENT@2COM.FR)"

MsgBox http.responseText

objXML.LoadXML (http.responseText)

Cells(9, 3) = "First Name"

Cells(9, 4) = "Last Name"

Cells(9, 5) = "Company"

x = 11

Set NodeList = objXML.SelectNodes("//Leads")

For Each Node In NodeList

Set childNode = Node.SelectSingleNode("//Leads")

Cells(x, 3) = Node.getAttribute("First Name")

Cells(x, 4) = Node.getAttribute("Last Name")

Cells(x, 5) = Node.getAttribute("Company")

x = x + 1

Next