將多個網頁中的數據提取到Excel中 - 使用VBA

Question

我是一名新手，試圖從下面的網頁中將數據提取到excel中。從下面的鏈接數據跨越到7頁（約3500行）。我需要這些數據到我的Excel工作手冊中。

http://www.moneycontrol.com/stocks/hist_stock_result.php?ex=N&sc_id=RI&pno=1&hdn=daily&fdt=2000-01-01&todt=2013-03-01

我曾嘗試網絡數據導入功能在Excel中。但是，由於不明原因，無法做到這一點。請別人幫忙.....

Answer 1

下面的代碼爲我工作。它應該從網站獲得1-7頁並粘貼每個單獨的Excel表單。

Private Const URL_TEMPLATE As String = "URL;http://www.moneycontrol.com/stocks/hist_stock_result.php?sc_id=RI&pno={0}&hdn=daily&fdt=2000-01-01&todt=2013-03-01" 
Private Const NUMBER_OF_PAGES As Byte = 7 

Sub test() 
    Dim page As Byte 
    Dim queryTableObject As QueryTable 
    Dim url As String 

    For page = 1 To NUMBER_OF_PAGES 
     url = VBA.Strings.Replace(URL_TEMPLATE, "{0}", page) 
     Set queryTableObject = ActiveSheet.QueryTables.Add(Connection:=url, Destination:=ThisWorkbook.Worksheets.Add.[a1]) 
     queryTableObject.WebSelectionType = xlSpecifiedTables 
     queryTableObject.WebTables = "3" 
     queryTableObject.Refresh 
    Next page 

End Sub