Excel Veri Alma

[Partdown]

Sub teams()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error Resume Next
Dim straddress As String
straddress = Sheets("ae1").Range("ba11").Value
Sheets("ae2").Select
Sheets("ae2").Range("A1:az1000").Clear
            With ActiveSheet.QueryTables.Add(Connection:= _
            "URL;" & straddress _
            , Destination:=Range("A1"))
            .FieldNames = False
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = False
            .RefreshOnFileOpen = False
            .BackgroundQuery = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = False
            .AdjustColumnWidth = False
            .RefreshPeriod = 0
            .WebSelectionType = xlAllTables
            '.WebSelectionType = xlSpecifiedTables
            '.WebTables = "14"
            .WebFormatting = xlWebFormattingNone
            .WebPreFormattedTextToColumns = False
            .WebConsecutiveDelimitersAsOne = False
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=True
           End With
    Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = False
End Sub

merhaba ben veri almak istiyorum bu elimdeki vba ile

1x2 Odds| Kelly Criterion | Odds Comparison

Compare 1x2 Odds from the leading bookmarkers

www.nowgoal.group

bu sitedeki veriyi çektiğimde



bu şekilde excele gelmekte değerleri almamakta acaba nerede hata yapıyorum yardımcı olursanız sevinirim.