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.
I have also posted my query at:-https://www.excelforum.com/exc…to-get-data-from-url.html
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