表導入到Excel，是由一個腳本從網頁

-3

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

產生我試過了PowerQuery，數據選項卡「From 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

結束子

預先感謝。

來源

2017-01-31 Jason

請發佈您正在運行的VBA腳本和您收到的錯誤。 – thodic

來自VBA腳本的錯誤是的錯誤http://stackoverflow.com/questions/21039677/import-data-in-excel-from-a-table-created-by-a-script-in-a - 網頁我想我已經找出了錯誤。網址已從http更改爲https。我試圖修改它到我的網址，但只是變得空白到目前爲止。 – Jason

使用Power Query /獲取&變換看起來相當簡單。我使用了New Query/From Web /粘貼該URL /選擇名爲「RSS Feeds」的表格。

來源

2017-01-31 21:36:23

我需要的表是「索引」表。不知何故，我無法使用Power Query來達到目的。謝謝。 – Jason

該表中的數據正是我在Power Query中查看的數據。 –

我現在正在嘗試一次，我只能看到「文檔」。昨天是市場假期，我能夠看到「文件」和「RSS源」。但是，我根本無法獲得「索引」表。我想知道如果表渲染時間是一個因素。我正在使用：Microsoft Office 2013與Power Query 2.39.4526.123 32位 – Jason

表導入到Excel，是由一個腳本從網頁

回答

相關問題