Galactico
09-07-2017, 10:43 AM
Hello everyone
I have the following macros to get internet data, but, I do not know how to apply ocr to get the value that I need (price) (or if there is another way to get it)
Sub scgget()Dim htmlDeRespuesta As Object
Set htmlDeRespuesta = CreateObject("htmlFile")
With CreateObject("msxml2.xmlhttp")
.Open "Get", "sales.starcitygames.com/carddisplay.php?productids[]=1263992&productids[]=1264618", False
.send
htmlDeRespuesta.body.innerhtml = .responsetext
End With
On Error Resume Next
Range("e8").Value = htmlDeRespuesta.GetElementsByTagName("span")(7).innertext
Range("e8").Replace What:="Out of Stock", Replacement:="NS"
On Error GoTo 0
End Sub
I would greatly appreciate your help
sorry for my english, not main language, thanks!
I have the following macros to get internet data, but, I do not know how to apply ocr to get the value that I need (price) (or if there is another way to get it)
Sub scgget()Dim htmlDeRespuesta As Object
Set htmlDeRespuesta = CreateObject("htmlFile")
With CreateObject("msxml2.xmlhttp")
.Open "Get", "sales.starcitygames.com/carddisplay.php?productids[]=1263992&productids[]=1264618", False
.send
htmlDeRespuesta.body.innerhtml = .responsetext
End With
On Error Resume Next
Range("e8").Value = htmlDeRespuesta.GetElementsByTagName("span")(7).innertext
Range("e8").Replace What:="Out of Stock", Replacement:="NS"
On Error GoTo 0
End Sub
I would greatly appreciate your help
sorry for my english, not main language, thanks!