将由网页中的脚本生成的表格导入 Excel

Question

我一直在尝试将下表导入 Excel

www.bursamalaysia.com/market/securities/equities/indices/

我尝试过 PowerQuery、“来自 Web”的数据选项卡等。根据我的研究，我开始相信 Excel 无法“看到”数据的原因是因为它是使用 Javascript 动态生成的。

如果尝试通过 PowerQuery 甚至 VBA 脚本将表格转换为 Excel，我将不胜感激。

我看到了类似的 at this 并对其进行了如下修改，但我得到了一个空表。

Sub Bursa_Indices()

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.bursamalaysia.com/market/securities/equities/indices/", 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("bm_indices_prices_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

结束子

提前致谢。

Answer 1

使用 Power Query / Get & Transform 看起来非常简单。我使用了 New Query / From Web / 粘贴该 URL / 选择名为“RSS Feeds”的表格。