Salvare dati in tempo reale

Hai un problema con Excel?

Nuova discussione

Salvare dati in tempo reale
di rodolfo (utente non iscritto) data: 23/09/2015 12:47:50
Salve,
ho il seguente problema: ho un file excel (collegato ad un sito internet) dal quale
ottengo in tempo reale le quotazioni di strumenti finanziari, vorrei salvare tali quotazioni per esempio ogni tre minuti su un altro foglio excel.
Ho provato con gli "Events", ma non ci sono riuscito.
Potete aiutarmi e darmi un listato da inserire.
Grazie.
Saluti Rodolfo

di Cucù data: 23/09/2015 13:41:51
Preso da un archivio salva ogni 3 minuti sovrascrivendo il vecchio file e senza avvisi...
Fai così:

'In un Modulo Standard:
Public dTime As Date 
 
Sub AutoSaveAs() 
    dTime = Time + TimeValue("00:03:00") 
    With Application 
        .OnTime dTime, "AutoSaveAs" 
        .EnableEvents = False 
        .DisplayAlerts = False 
        ThisWorkbook.SaveAs "Percorso&NomeFile" 
        .EnableEvents = True 
    End With 
End Sub 

'Invece in ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    Application.OnTime dTime, "AutoSaveAs", , False 
End Sub 
 
Private Sub Workbook_Open() 
    dTime = Time + TimeValue("00:03:00") 
    Application.OnTime dTime, "AutoSaveAs" 
End Sub

Vuoi Approfondire?