从网页中提取信息并输入到单元格中答案

【问题标题】：Pull Information from Webpage and Input into Cell从网页中提取信息并输入到单元格中
【发布时间】：2017-08-04 02:39:43
【问题描述】：

我如何修改代码以将数据输入到 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

结束子

【问题讨论】：

标签： vba excel

【解决方案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

【讨论】：

谢谢，但我得到一个编译错误：赋值左侧的函数调用必须返回变量或对象。我会看看这意味着什么。
修复了将 Val 变暗为字符串的问题。谢谢！

【解决方案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

【讨论】：