Hi,

I am trying to get data from url below is the vba code which i am using to get data but unable to get complete data.

My output should {"response": {"objects": [["natural_light", 612, 881, 1124, 1118]]}, "error": "false"} in range ("B2").

below is my vba code.

sub test()
Dim xhr As MSXML2.XMLHTTP60
Dim doc As MSHTML.HTMLDocument
Dim results As MSHTML.HTMLDivElement
Dim elt As MSHTML.HTMLTableCell
Dim imgs As MSHTML.IHTMLElementCollection
Dim img As MSHTML.HTMLImg
Set xhr = New MSXML2.XMLHTTP60
With xhr
.Open "GET", "https://api.restb.ai/segmentation client_key=c529e4cb36fd71a0038e5790fd69a42eacaf378fa0789bba78b9782e073b88ed&model_id=re_features&image_url=https://www.mulderteam.com/wp-content/blogs.dir/234/files/2013/04/110922317.jpg", False
.send
If .readyState = 4 And .Status = 200 Then
Set doc = New MSHTML.HTMLDocument
doc.body.innerHTML = .responseText
End If
End With
Set HTML = New MSHTML.HTMLDocument
Sheets("List").Range("B2") = HTML.DocumentElement.innerHTML
End Sub