Извлечь данные из нескольких веб-страниц в 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