[VBA] web into excel sheet

[jimrenoir]

Καλησπέρα.Σε ευχαριστώ για την απάντηση σου.Ξέρω πως ξεφεύγουμε από τα δεδομένα της απλής βοήθειας.Όμως δεν μπορώ να το φτιάξω μόνος μου.(εχω αγοράσει μέχρι τώρα 3 βιβλία για excel vba) αλλά κανένα δεν αναφέρει αυτό που ψάχνω.Σας παρακαλώ θα ήθελα να με βοήθησετε να το τελειώσω αυτό που προσπαθώ να φτιαξω.
Ο κώδικας που μου δώσατε δουλέυει.Απλά χρειάζεται να τρέχει 2 διαδιακσίες έτσι ώστε να καλύπτει όλες τις περιπτώσεις.
Τι εννοώ(όταν υπάρχει μια σελίδα δεδομένων τότε θέλει να έχει την εντολή (WebTables = "4")
"URL;http://www.oxybet.com/odds_comparison.asp?spoid=1&modid=2&cur_dat=" & seldate & pg=
ενώ όταν έχει περισσότερες απο μία πρέπει να είναι WebTables = "5" και επίσης στην εντολή
θέλει να προστείθετε στο τέλος
"URL;http://www.oxybet.com/odds_comparison.asp?spoid=1&modid=2&cur_dat=" & seldate&pg=(αριθμούς σελίδας)π.χ 1,2,3,4,5,6,κλπ μέχρι να πάρει τα δεδομένα και από την τελευταία σελίδα.
Κύριε Τάσο (και συγνώμη από το φόρουμ που αναφέρομαι σε συγκεκριμένο άτομο )αν σας είναι εύκολο παρακαλώ υλοποιήστε μου αυτόν τον κώδικα.Και επίσης θέλω να προσθέτει τις ημέρες στην συνέχεια τις προηγούμενης χωρίς να διαγράφει τίποτa(π.χ)τελευταία εγγραφή είναι στην γραμή Α432 τότε η επόμενη να αρχίζει στη γραμμή Α433 κ.λπ
( LastRow = (.Cells(.Rows.Count, "b").End(xlUp).Row))
καθώ και να είναι επαναλαμβανόμενη η διαδικασία(for i =1 to 365)δηλαδή 365 μέρε που έχει ο χρόνος
"URL;http://www.oxybet.com/oιdds_comparison.asp?spoid=1&modid=2&cur_dat=" & seldate & i
και να καλύπτει και τις δύο περιπτώσεις δηλαδή
"URL;http://www.oxybet.com/odds_comparison.asp?spoid=1&modid=2&cur_dat=" & seldate
"URL;http://www.oxybet.com/odds_comparison.asp?spoid=1&modid=2&cur_dat=" & seldate&pg=(αριθμούς σελίδας)π.χ 1,2,3,4,5,6,κλπ μέχρι και την τελευταία
Ξέρω τι χρειάζεται αλλά δεν ξέρω πως να το υλοποιήσω είμαι τελείως άσχετος με vba το excel παρόλο που έχω αγοράσει μέχρι τώρα 3 βιβλία )δεν αναφέρουν πουθενά αυτό που ζητάω.