Siteden farklı sayfalardaki verileri çekme

[mstfscl]

Merhaba arkadaşlar bir siteden veri çekicem ama sürekli olucak yani farklı sayfalarındanda aynı veri türlerini çekicem.Linkte tarih var o tarih geriye alarak sürekli alt alta çekmesini istiyorum internetten bulduklarımla sadece 1 sayfayı çekebildim.Kod aşağıda saygılarımla.

Sub çek()
'
' çek Makro
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://data.goaloo.com/1x2/Companyhistory.aspx?id=281&company=Bet 365&matchdate=2017-04-20" _
        , Destination:=Range("$A$1"))
        .Name = "Companyhistory.aspx?id=281&company=Bet 365&matchdate=2017-04-20"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Range("A1:M12").Select
    Range("M6").Activate
    ActiveWindow.SmallScroll Down:=-15
    Cells.Select
    Selection.ColumnWidth = 12.57
    Range("I9").Select
End Sub

matchdate=2017-04-20 yazıyor mesela bu 19-18-17-16 diye azalıcak bunu bulamadım for döngüsü diye bir şey buldum ama kafa ileri gitmiyor.

 

[mstfscl]

http://www.excel.web.tr/f48/web-adresindeki-linkden-sayfalary-cekmek-t163575.html

burada gösterilmiş ama tarih olarak nasıl geri alıcağım bilemedim

 

[askm]

O örnekde tarih kısmı yok. Sizin kullandığınız yöntemden farklı.

 

[mstfscl]

O örnekde tarih kısmı yok. Sizin kullandığınız yöntemden farklı.

hocam ben excellde 2010 kadar ki linkleri yaptım bunu direk yapabilirmi