Macro to get data from url.

[UPA]

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

[MarvinP]

Hi UPA,

In your .Open line of code, it ends with a ".jpg" which implies you are trying to get data from a picture file. Can you supply the correct URL for the site you are trying to scrape data from? If it is a picture, Excel won't be able to do it.

[UPA]

Hi MarvinP,

Thanks for the reply!

Yes,I am trying to get data from picture file.

Here is the correct url

https://api.restb.ai/segmentation?cl.../110922317.jpg

Regards
upa

[xlhelp7]

May be

Sub upa()
Dim URL2 As String: URL2 = "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"
Dim Http2 As New WinHttpRequest
Http2.Open "GET", URL2, False
Http2.send
Dim Resp As String: Resp = Http2.responseText
Dim Lines2 As Variant: Lines2 = Split(Resp, vbNewLine)
Debug.Print Lines2(0)
For k = LBound(Lines2) To UBound(Lines2)
ActiveSheet.Cells(1 + k, 1).Value = Lines2(k)
Next k
End Sub

[UPA]

Hi xlhelp7,
Thanks for the reply!
That is exactly what I am looking for.
Perfect!!!! Thanks so much for your assistance.

Regrads,

upa