从多个网页提取数据到Excel – 使用VBA

我是新来的macros，并试图从以下网页提取数据到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中的Web数据导入function。 但是，由于不明原因，无法做到这一点。 请别人帮忙…..

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