salvare cartella ogni tot tempo

Hai un problema con Excel?

Nuova discussione

salvare cartella ogni tot tempo
di Andrea (utente non iscritto) data: 16/08/2014 00:00:54
Buona sera

vorrei chiedere se qualcuno sa se è possibile con una macro salvare ogni tot tempo (30') il lavoro che si stà facendo su una catella di excel?
siccome è la seconda volta che per stanchezza chiudo il lavoro senza salvare.
grazie

di Andrea (utente non iscritto) data: 16/08/2014 01:57:49
ho cercato ed ho trovato questa:
solo che mi salva il foglio singolo.
si potrebbe modificare per salvare tutto il lavoro???
un grazie
e io continuo a cercare

Sub SalvaConNome()
  Cartella = "C:miacartella"  'percorso completo su cui salvare, ricordarsi la barra inversa alla fine!
  NomeFile = Range("A1").Value  'cella da cui prendere il nome file
  NomeFoglio = "Foglio1"        'nome esatto del foglio da copiare
   
  If NomeFile = "" Then Exit Sub
  If Right(NomeFile, 4) <> ".xls" Then NomeFile = NomeFile & ".xls"
     
  Sheets(NomeFoglio).Copy
   
  ActiveWorkbook.SaveAs Filename:=Cartella & NomeFile, FileFormat:= _
    xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
    , CreateBackup:=False
End Sub

di lepat (utente non iscritto) data: 16/08/2014 08:00:23
non ti serve una macro, vai nelle opzioni di Exel e troverai quello che ti serve, per il 2010
file, opzioni, salvataggio
di Andrea (utente non iscritto) data: 17/08/2014 10:13:06
Grazie del consiglio
avevi ragione, era spuntato: non per questo foglio.

però a me servirebbe uqualmente perchè vorrei avere una serie di fogli (ogni 30') perchè a volte mi serve tornare sui miei passi e riprendere il lavoro da un certo punto che salvando manualmente va perso.
magari fare una copia ogni 30' con nome data del giorno ed ora corrente.
avere unna macro coì' sarebbe oro per il tipo che sono, il giorno dopo non trovo mai il foglio su cui stavo lavorando.

di lepat (utente non iscritto) data: 17/08/2014 10:30:31
questa salva tutta la cartella, ma la devi lanciare manualmente, così va bene per ora ?

Sub SalvaConNome()
  Cartella = "C:cartella"  'percorso completo su cui salvare, ricordarsi la barra inversa alla fine!
  NomeFile = ThisWorkbook.Name & "_" & Format(Now(), "dd-mm-yy hh.mm") & ".xls"
  ActiveWorkbook.SaveCopyAs Filename:=Cartella & NomeFile
End Sub

di lepat (utente non iscritto) data: 17/08/2014 12:26:48
versione definitiva

Sub OnTimeSalva()
Tempo = Now + TimeSerial(0, 3, 0) ' 3 minuti
Application.OnTime EarliestTime:=Tempo, Procedure:="SalvaConNome", Schedule:=True
End Sub

Sub SalvaConNome()
  Cartella = "C:usersutentedesktop"  'percorso completo su cui salvare, ricordarsi la barra inversa alla fine!
  NomeFile = ThisWorkbook.Name & "_" & Format(Now(), "dd-mm-yy hh.mm") & ".xls"
  ActiveWorkbook.SaveCopyAs Filename:=Cartella & NomeFile
  OnTimeSalva
End Sub

Sub Ontimestop() '
On Error Resume Next
Application.OnTime EarliestTime:=Tempo, Procedure:="SalvaConNome", Schedule:=False
End Sub

di Andrea (utente non iscritto) data: 19/08/2014 20:45:29
grazie.
proprio quello che serviva.
scusa il ritardo ma questi giorni sono molto impegnato.
buona serata.
di Andrea (utente non iscritto) data: 20/08/2014 16:43:22
bellissima !!!
provata e va che è una meraviglia.
proprio quello che ci voleva per uno come me (testa fra le nuvole)
ho cambiato in xlsx, messo il percoso completo di salvataggio e portato il tempo a 30'

ancora infinite grazie.

Vuoi Approfondire?