从网站检索数字到Excel

从这个网站http://bit.ly/1Ib8IhP

我正试图把这个数字放到一个Excel单元格中。

Avg. asking price in Bayswater Road: £1,828,502 

有什么方法使用VBA或其他工具？ 无法使其与networking查询工作。

Answer 1

这是可能的解决scheme之一：

 Option Explicit Sub RetrieveAvgPrice() Dim sUrl, sContent, sPrice sUrl = "http://www.zoopla.co.uk/home-values/london/bayswater-road/" With CreateObject("MSXML2.XMLHttp") .Open "GET", sUrl, False .Send "" sContent = .ResponseText End With With CreateObject("VBScript.RegExp") .Global = True .MultiLine = True .IgnoreCase = False .Pattern = "Avg\. asking price[\s\S]*?class=""price big"">([\s\S]*?)<" sPrice = HtmlSpecialCharsDecode(.Execute(sContent).Item(0).SubMatches(0)) End With MsgBox sPrice End Sub Function HtmlSpecialCharsDecode(sText) With CreateObject("htmlfile") .Open With .createElement("textarea") .innerHTML = sText HtmlSpecialCharsDecode = .Value End With End With End Function