vba - 将多个网页中的数据提取到 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 中尝试过 Web 数据导入功能。但是，由于未知原因，无法做到这一点。请有人帮忙......

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