Informationen von Webseite und Eingabe in Zelle ziehen

Question

Anstatt diese Informationen als Nachrichtenfeld anzuzeigen, wie kann ich den Code so ändern, dass diese Daten in Sheet1.Range ("A1") eingegeben werden? Jede Hilfe wird sehr geschätzt.

Sub Demo() 
With CreateObject("Msxml2.XMLHTTP") 
    .Open "GET", "http://www.realtytrac.com/property" & Sheet1.Range("J11"), False 
    .setRequestHeader "DNT", "1" 
    .Send 
    MsgBox Split(Split(.responseText, "itemprop='propertyID'>")(1), "<")(0) 
End With 

End Sub

Answer 1

Sub Demo() 
With CreateObject("Msxml2.XMLHTTP") 
    .Open "GET", "http://www.realtytrac.com/property" & Sheet1.Range("J11"), False 
    .setRequestHeader "DNT", "1" 
    .Send 
    val = Split(Split(.responseText, "itemprop='propertyID'>")(1), "<")(0) 
    ThisWorkbook.Sheets(1).Range("A1").value = val 
End With 
End Sub 

Answer 2

Wenn Sie eine gültige Antwort in Ihrem XMLHTTP Objekt haben sollten Sie in der Lage sein, die folgenden verwenden:

Sub Demo() 
With CreateObject("Msxml2.XMLHTTP") 
    .Open "GET", "http://www.realtytrac.com/property" & Sheet1.Range("J11"), False 
    .setRequestHeader "DNT", "1" 
    .Send 
    ThisWorkbook.Sheets(1).Range("A1").Value = Split(Split(.responseText, "itemprop='propertyID'>")(1), "<")(0) 
End With 
End Sub