importare dati da web (Excel)

[caimanonor]

ciao volevo chiedervi una cosa se era possibile, visto che importo dati da web e li aggiornano ogni minuto, posso creare un foglio excel che salva direttamente ad un orario prestabilito le modifiche?? anche se non sono vicino al pc e lo rinomina con il nome dell orario???? grazie

[Anthony47]

Prova con questo codice:

Codice: Seleziona tutto

Sub POnTime()
If Sheets("Foglio1").Range("Z1")<>"" then    '<< Vedi testo
Application.OnTime EarliestTime:= Sheets("Foglio1").Range("Z1").value,  Procedure:="Salvaf", Schedule:=False
End If
'
ReTime:
Sched = InputBox("A che ora vuoi salvare il foglio? " & vbCrLf & _
        "(formato hh:mm, es 17:35) Premi Annulla per annullare", , "17:35")
If Sched = "" Then Exit Sub
If Not IsDate(Sched) Then GoTo ReTime
Sheets("Foglio1").Range("Z1").value= TimeValue(Sched)
Application.OnTime TimeValue(Sched), "Salvaf"
End Sub


Sub Salvaf()
ThisWorkbook.Sheets("Foglio1").Range("Z1").ClearContents    '<< Vedi testo
' ThisWorkbook.Sheets("Foglio1").Copy    '<< Il Vero nome del "foglio" da salvare

    ThisWorkbook.SaveAs Filename:= _
        ThisWorkbook.Path & "PIPPO_" & Format(Now(), "yymmdd_hh-mm-ss") & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

'ActiveWorkbook.Close

End Sub


La Sub POnTime PIANIFICA l' esecuzione della Sub Salvaf ad un orario impostato tramite inputbox. La devi quindi eseguire per poter impostare l' orario della pianificazione.

La Sub Salvaf salva il file corrente con un nome impostato nella macro (PIPPO_, ma lo puoi modificare) e la desinenza yymmdd_hh-mm-ss; se vuoi la data piu' leggibile puoi modificare il formato, es "yyyy-mm-dd_hh-mm-ss". Se la desinenza finale ".xls" non e' appropriata modificala.

Se INVECE vuoi salvare una copia di un foglio specifico, allora, nella Sub Salvaf:
-Elimina i due apostrofi in testa alla terza e penultima riga di Salvaf; specifica il vero nome del file da salvare
-Modifica ThisWorkbook.SaveAs etc etc in ActiveWorkbook.Save etc etc
In questo modo del foglio specificato verra' creaa copia in una nuova cartella di lavoro, che sara' salvata come detto prima e poi chiusa, tornando cosi' al file originale.

Le macro usano la cella Sheets("Foglio1").Range("Z1"); questa cella deve quindi essere non usata dai tuoi dati. Puoi ovviamente impostare una cella di un altro foglio o in altra coordinata, modificando di conseguenza "Sheets("Foglio1").Range("Z1")" in tutte le 4 posizioni.
Come scelta, se al momento del lancio della Sub POnTime questa Z1 non e' vuota allora sara' prima cancellata la precedente schedulazione pendente e poi sara' impostata la nuova.

Ciao