从网页拉取信息并输入到单元格

而不是将此信息显示为消息框，我该如何修改代码以便将数据输入到Sheet1.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

末次

来源

2017-03-13 Chris Green

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

来源

2017-03-13 22:28:40 user7705613

谢谢，但我得到一个编译错误：函数调用在赋值的左侧必须返回变体或对象。我会研究这意味着什么。 –

修正了将Val调暗为字符串的问题。谢谢！ –

如果你在你的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

来源

2017-03-13 22:35:44 dbodell

从网页拉取信息并输入到单元格

回答

相关问题