[Tasos]

Δημήτρη, δεν έχει κανένα πρόβλημα ο κώδικας του παραδείγματος αλλά η σελίδα που χτίζει τους πίνακες με λίγα δεδομένα διαφορετικά.

Φυσικά δεν μπορούμε να το παρακολουθήσουμε της αλλαγές που κάνει η ιστοσελίδα αυτή για να τροποποιήσουμε τον κώδικα κατάλληλα.

Κάτι τέτοιο χρειάζεται πολύ χρόνο, είναι πολύ εξειδικευμένο και δεν μπορεί να απαντηθεί μέσα από
ένα θέμα αφού δεν θα έχει πια επιπλέον διδακτικές αξίες.

Μπορείς να χρησιμοποιήσεις τον παρακάτω κώδικα που καλύπτει περιπτώσεις όπως η 3/7/2008.

Δεν φτιάχνω εφαρμογή. Απλά δίνω παράδειγμα και ελπίζω να το εξελίξει ο κάθε ενδιαφερόμενος.

Option Explicit

Sub GetData()
    Dim seldate As String
    seldate = Format(Range("SelDate"), "yyyymmdd")
    With Range("odds_comparison").QueryTable
        .Connection = _
        "URL;http://www.oxybet.com/odds_comparison.asp?spoid=1&modid=2&cur_dat=" & seldate
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = Chr(34) & "v-" & seldate & Chr(34)
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = True
        .WebDisableDateRecognition = False
        .WebDisableRedirections = True
        On Error Resume Next
        .Refresh BackgroundQuery:=False
        If Err <> 0 Then
            .WebTables = "4"
            .Refresh BackgroundQuery:=False
        End If
    End With
End Sub

Φτιάξε λοιπόν τα 2 ερωτήματα σου και μετά βλέπουμε.

Καλή συνέχεια

Τάσος