从网页中的脚本创建的表中导入 Excel 中的数据

Question

我正在尝试创建一个自动连接到网页并在 Excel 中导入表格中的数据的宏。我的问题是 Excel 查询工具无法识别表格，我认为是因为它是由页面中的脚本创建的，所以我不能使用标准方式。 目前，我正在使用这种方法：

1. 将数据复制到剪贴板
2. 运行 vba 宏，然后从剪贴板获取数据并将其导入 Excel

但是，我每次要导入 20 多个网页，我想要一个“独立”宏，给定页面的 url，它可以在 excel 中导入数据。

我感兴趣的网页是： http://www.investing.com/indices/us-30-historical-data 我正在使用 excel 2010

谁能帮帮我？

Answer 1

试试这个

Sub Dow_HistoricalData()

    Dim xmlHttp As Object
    Dim TR_col As Object, TR As Object
    Dim TD_col As Object, TD As Object
    Dim row As Long, col As Long

    Set xmlHttp = CreateObject("MSXML2.XMLHTTP.6.0")
    xmlHttp.Open "GET", "http://www.investing.com/indices/us-30-historical-data", False
    xmlHttp.setRequestHeader "Content-Type", "text/xml"
    xmlHttp.send

    Dim html As Object
    Set html = CreateObject("htmlfile")
    html.body.innerHTML = xmlHttp.ResponseText

    Dim tbl As Object
    Set tbl = html.getElementById("curr_table")

    row = 1
    col = 1

    Set TR_col = html.getelementsbytagname("TR")
    For Each TR In TR_col
        Set TD_col = TR.getelementsbytagname("TD")
        For Each TD In TD_col
            Cells(row, col) = TD.innerText
            col = col + 1
        Next
        col = 1
        row = row + 1
    Next
End Sub

Answer 2

另一种方法是发出类似的 HTTP 请求

// source http://tkang.blogspot.co.at/2010/09/sending-http-post-request-with-vba.html
Dim result As String
Dim myURL As String
Dim winHttpReq As Object
Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")

myURL = "http://192.168.10.101:80/your_web_service?parameter=hello¶meter2=hi"

winHttpReq.Open "GET", myURL, False
winHttpReq.Send

result = winHttpReq.responseText

并解析结果。 不过我自己没试过。