ho una difficoltà che non riesco a risolvere, pur avendo provato con diverse soluzioni non riesco a risolvere.
Devo scaricare dati da internet, le pagine sono diverse e per data, volendo ricercare dei dati anteriori alla
data del giorno, ho in una cella l'ultima data in archivio, per cui in un'altra cella faccio la verifica con la data
odierna e se differente, vado a ricercare le pagine dei giorni precedenti, ma non riesco a far funzionare a
dovere la macro. Allego parte del codice originale (con l'inserimento manuale nella macro della data) e la
variazione fatta per leggere la data in base al valore di una cella. Il nome del sito non è quello reale:
Originale:
- Codice: Seleziona tutto
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.lavoro.com/?area=Offerte&action=Archivio&date=2011-11-06" _
, Destination:=Range("$A$1"))
Modifica1:
- Codice: Seleziona tutto
gio = Worksheets("Appoggio").Range("AC7").Value
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.lavoro.com/?area=Offerte&action=Archivio&date=" & gio _
, Destination:=Range("$A$1"))
Modifica2:
- Codice: Seleziona tutto
gio = Worksheets("Appoggio").Range("AC7").Value
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.lavoro.com/?area=Offerte&action=Archivio&date=" & "gio" _
, Destination:=Range("$A$1"))
Nelle due modifiche mi carica solo la pagina di base ma non i dati
Grazie
Francesco