Due commenti:
-effettivamente avevo interpretato male la richiesta, che non verte su come ottenere i dati dei giorni successivi ma le paginate successive alla prima
-comunque se nella macro come data ci scrivi 2012-05-31 poi non lamentarti che ti restituisce i dati del 31-maggio
Andando alla richiesta, immagino che tu desideri estrarre sul foglio tutte le informazioni disponibili sul sito per quella data. Io procederei cosi':
-inserisci sul tuo foglio 5 web query in successione, usando rispettivamente questi url
- Codice: Seleziona tutto
http://www.oddsfair.net/en/index.php?date=2012-05-31&order=1x2desc&offset=0
http://www.oddsfair.net/en/index.php?date=2012-05-31&order=1x2desc&offset=20
http://www.oddsfair.net/en/index.php?date=2012-05-31&order=1x2desc&offset=40
http://www.oddsfair.net/en/index.php?date=2012-05-31&order=1x2desc&offset=60
http://www.oddsfair.net/en/index.php?date=2012-05-31&order=1x2desc&offset=80
-non farti impressionare se alcune di queste query non restituiranno dati validi
-appena completata la singola query, fai tasto dx sull' area dati, scegli Proprieta' intervallo dati; nella finestra Proprieta' cambia il "Nome" dal valore corrente a "Offset_0", "Offset_20", etc (a seconda dell' url usato)
-come destinazione imposta la prima cella libera sotto la query precedente
Hai detto che vorresti lavorare con la data inserita in AA1, quindi in AA1 o ci scrivi la data che vuoi (in formato data excel) oppure ci metti una formula che restituisce una data.
Poi userai una macro come questa che
-modifica la data di query come impostato in AA1 del foglio attivo
-fa il refresh dei dati dal sito
- Codice: Seleziona tutto
Sub quall()
'http://www.pc-facile.com/forum/viewtopic.php?f=26&t=95656
'
myDate = Format(Range("AA1").Value, "yyyy-mm-dd")
'
For I = 0 To 60 Step 20
myConn = "URL;http://www.oddsfair.net/en/index.php?date=" _
& myDate & "&order=1x2desc&offset=" & I
With ActiveSheet.QueryTables("Offset_" & I)
.Connection = myConn
.Refresh BackgroundQuery:=False
End With
Next I
End Sub
Prova e fai sapere.