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

我試圖從以下網頁中將數據提取到excel中。從下面的鏈接數據跨越到7頁（約3500行）。我需要這些數據到我的Excel工作手冊中。將多個網頁中的數據提取到Excel中 - 使用VBA - Excel凍結

www.moneycontrol.com/stocks/hist_stock_result.php?ex=N & sc_id = RI & PNO = 1 & HDN =每日& FDT = 2000-01-01 &託德= 2013年11月1日

我已經使用了下面的宏來下載相同的....不幸的是，由於未知原因，宏讓Microsoft 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-11-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

來源

2013-11-02 Surya Sudarsi

我測試過我的系統，它工作得很好。這似乎是發生的事情是：

代碼迅速執行
系統讀取基於Web的數據源 - 這一步的速度取決於你的互聯網連接速度

我得到「ExternalData_1 ：「在單元格A1而發生這種情況，並且在之間的狀態欄開關的信息：

‘獲取數據... Web數據複製到片材’ 和 ‘刷新’

從我執行到完成我的系統從南非通過2Mbps ADSL互聯網連接所花費的總時間約爲24秒。

我使用Excel 2007

來源

2013-11-02 09:20:36 wedwo

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

回答

相關問題