从网页中提取信息并input到单元格中

而不是将这些信息显示为消息框，我如何修改代码以便将数据inputSheet1.Range（“A1”）？ 任何帮助是极大的赞赏。

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 

结束小组

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

如果你的XMLHTTP对象有一个有效的响应，你应该可以使用下面的代码：

 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