buenas, tengo el siguiente macros para obtener datos de internet
Sub scgget()
Dim htmlDeRespuesta As Object
Set htmlDeRespuesta = CreateObject("htmlFile")
With CreateObject("msxml2.xmlhttp")
.Open "Get", "http://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
pero tengo problemas para obtener el valor que quiero de esta pagina (con otras me anda bien) (el valor price), y no se a que se debe, agradecería mucho si alguien me pudiera ayudar a obtener este valor
muchas gracias!
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
buenas, tengo el siguiente macros para obtener datos de internet
Sub scgget() Dim htmlDeRespuesta As Object Set htmlDeRespuesta = CreateObject("htmlFile") With CreateObject("msxml2.xmlhttp") .Open "Get", "http://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
pero tengo problemas para obtener el valor que quiero de esta pagina (con otras me anda bien) (el valor price), y no se a que se debe, agradecería mucho si alguien me pudiera ayudar a obtener este valor
muchas gracias!