從網頁拉取信息並輸入到單元格

而不是將此信息顯示爲消息框，我該如何修改代碼以便將數據輸入到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

從網頁拉取信息並輸入到單元格

回答

相關問題