vba - 複数のWebページからExcelにデータを抽出する-VBAを使用

Question

私はマクロに不慣れで、次のWebページから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

次のコードは私のために働いた。Webサイトから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