La tua macro non ha una rischedulazione ma una Application.Wait che aspetta il tempo indicato ma assorbendo tutta la cpu disponibile, quindi col pc quasi bloccato... sconsiglio quell' approccio.
Dici "al secondo valore mi dice che la macro Ripeti non esiste": non ho capito esattamente a cosa ti riferisci con "al secondo valore", pero' l' errore che descrivi potrebbe dipendere da un errato posizionamento del codice della Sub Ripeti: esso va posizionato in un
Modulo standard, seguendo le istruzioni del post che ti ho linkato ("Menu /Inserisci /Modulo, inserisci queste istruzioni nel frame di dx [. . . ]")
Devo anche chiarire che la mia macro dovrebbe si provvedere a rieseguire periodicamente la webqery, ma in effetti non contiene le istruzioni necessarie per accodare il nuovo dato a un tuo elenco storico, cosa che in realta' mi era sembrato fosse alla tua portata.
In linea di massima, se il dato e' contenuto in B2 e vuoi accodare i valori in colonna H (orario) e I (valore)
Allora prima della End Sub (nella Sub Ripeti) inserirai:
- Codice: Seleziona tutto
End If ' ESISTENTE
'aggiungere:
With ThisWorkbook.Sheets("XYZW")
NextL = .Cells(Rows.Count, "H").End(xlUp).Row + 1
.Cells(NextL, "H") = Now '<< Vedi testo per il formato
.Cells(NextL, "I") = .Cells(2, 2).Value
End With
End Sub 'ESISTENTE
Che e' assolutamente simile a quello che hai fatto nella tua versione di Ripeti.
Quanto al formato della colonna H, lo puoi applicare "a mano" all' intera colonna scegliendo quale versione soddisfa maggiormente; ad esempio io inserirei data + ora.
Per avare la garanzia che il dato sia corretto, direi che bisogna impostare Excel affinche' usi come separatore decimale lo stesso carattere usato dal sito, cioe' il "punto". Come fare dipende dalle versioni: una volta queste impostazioni venivano ereditate dalle impostazioni di sistema, poi sono state rese disponibili in Menu /Strumenti /Opzioni.
Ciao