vba - 仅从网站获取特定表格到 Excel 中

Question

我需要从 http://www.zillow.com/homes/comps/67083361_zpid/ 获取表使用 VBA 导入 Excel。我只想要一张 table ，没有别的。但是当我使用时:

Set objIE = CreateObject("InternetExplorer.Application")

With objIE
    .Visible = True
    .Navigate "http://www.zillow.com/homes/comps/67083361_zpid/"
    Do While .ReadyState <> 4: DoEvents: Loop
    Debug.Print .document.Body.outerText
End With

它给我的文字如下:

4723 N 63rd Dr$63,50008/17/201241.752,0747,6751972$360.11

对于我无法分析并存储到 Excel 不同单元格中的每种产品。

有没有一种方法可以以可管理的方式获取页面数据。如果我需要为此遍历一个循环，我没问题。我还可以进行额外的处理，将行数据正确填充到 Excel 中。

Answer 1

我会使用下面的，因为我发现查询表很慢并且 IE 非常慢;)

Sub GetData()
    Dim x As Long, y As Long
    Dim htm As Object

    Set htm = CreateObject("htmlFile")

    With CreateObject("msxml2.xmlhttp")
        .Open "GET", "http://www.zillow.com/homes/comps/67083361_zpid/", False
        .send
        htm.body.innerhtml = .responsetext
    End With

    With htm.getelementbyid("comps-results")
        For x = 0 To .Rows.Length - 1
            For y = 0 To .Rows(x).Cells.Length - 1
                Sheets(1).Cells(x + 1, y + 1).Value = .Rows(x).Cells(y).innertext
            Next y
        Next x
    End With

End Sub