Condividi:        

macro per salvare file excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

macro per salvare file excel

Postdi martin » 12/06/10 11:32

salve ragazzi
un aiuto se possibile
mi servirebbe una macro per salvare file excel con nome della data odierna di lavoro di lavoro es. 14aprile2010.xlsm
il giorno successivo quando riapro il file vergine ad esempio con la macro azionata da pulsante lo salvo 15aprile2010 e cosi via in modo che ogni giorno mi ritrovo il file pulito e quando lo inizio lo risalvo con nome data.
grazie martin
martin
Utente Senior
 
Post: 108
Iscritto il: 03/12/08 17:04

Sponsor
 

Re: macro per salvare file excel

Postdi martin » 12/06/10 13:42

martin ha scritto:salve ragazzi
un aiuto se possibile
mi servirebbe una macro per salvare file excel con nome della data odierna di lavoro di lavoro es. 14aprile2010.xlsm
il giorno successivo quando riapro il file vergine ad esempio con la macro azionata da pulsante lo salvo 15aprile2010 e cosi via in modo che ogni giorno mi ritrovo il file pulito e quando lo inizio lo risalvo con nome data.
grazie martin


trovato !!!!!
basta cercare sul ns forum!! si trova tutto
la pubblico come l'ho modificata

Sub Salva_con_nome()
nome = "C:\Users\Desktop\archivio " & Format([B16], "-yyyy-mm-dd") & ".xlsm"
ActiveWorkbook.SaveAs nome
ActiveWorkbook.Close
End Sub

ciao a tutti
martin
martin
Utente Senior
 
Post: 108
Iscritto il: 03/12/08 17:04

Re: macro per salvare file excel

Postdi socrat3 » 12/06/10 14:24

Ecco il codice pronto con l'utilizzo della funzione =oggi in A1

Sub Salva_con_nome()
Range("a1").FormulaR1C1 = "=today()"
nome = "C:\Documents and Settings\soc\Documenti\archivio" & Format([A1], "-yyyy-mm-dd") & ".xlsm"
MsgBox (nome)
ActiveWorkbook.SaveAs Filename:=nome, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close
End Sub
socrat3
Utente Junior
 
Post: 16
Iscritto il: 06/06/10 10:05

Re: macro per salvare file excel

Postdi Anthony47 » 12/06/10 17:50

martin ha scritto:trovato !!!!!
basta cercare sul ns forum!! si trova tutto
Bravo; per aver dimostrato che la necessita' aguzza l' ingegno, per aver mostrato come il forum sia ricco di problemi e soluzioni, e infine perche' l' uso della definizione "ns forum" implica che ti senti parte del forum (come e' giusto) e non solo spettatore.

Per socrat3: ovviamente la tua macro presuppone che la cella A1 sia non occupata da dati utente, cosa che in genere non e' garantibile. Puoi pero' togliere l' istruzione Range("a1").FormulaR1C1 = "=today()" e usare direttamente nome = "C:\Documents and Settings\soc\Documenti\archivio" & Format(Now(), "-yyyy-mm-dd") & ".xlsm"

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro per salvare file excel

Postdi socrat3 » 12/06/10 19:36

Per socrat3: ovviamente la tua macro presuppone che la cella A1 sia non occupata da dati utente, cosa che in genere non e' garantibile. Puoi pero' togliere l' istruzione Range("a1").FormulaR1C1 = "=today()" e usare direttamente nome = "C:\Documents and Settings\soc\Documenti\archivio" & Format(Now(), "-yyyy-mm-dd") & ".xlsm"
Ciao.


Come mi piace questo forum... che voi manco immaginate! Grazie
socrat3
Utente Junior
 
Post: 16
Iscritto il: 06/06/10 10:05

Re: macro per salvare file excel

Postdi valle1975 » 28/09/10 14:48

Salve, aggiungo una difficoltà.
Non riesco a far salvare solo il foglio "PIPPO" (di 4 fogli esistenti), e per questo le sole celle incluse nel RANGE A1:E63, che includono 2 loghi, visto che fuori da questo Range ho dei pulsanti con Macro che non devono apparire nel nuovo file creato con il nome impostato.
Come si puo' risolvere??
Saluti.
Valerio
---------------------------------
Windows 10 Professional + MS Office 2016 STD Ita
valle1975
Utente Senior
 
Post: 213
Iscritto il: 27/09/10 16:33

Re: macro per salvare file excel

Postdi Anthony47 » 01/10/10 13:02

Ma questa e' una operazione che farai una tantum o in continuazione?
Comunque registra una mail mentre:
-copi il foglio in un nuovo file (Menu /Modifica /Sposta o copia foglio; scegli come destinazione "(nuova cartella")", spunta "Crea una copia"; ok)
-seleziona le colonne con dati/immagini che non ti servono e Menu /Modifica /Elimina
-idem peer le righe oltre la 63
-salvi il file
-chiudi il file
Interrompi la registrazione.

Potrai usare la macro prodotta per ripetere l' operazione quando vorrai; eventualmente assegnala a un pulsante per comodita'. Se devi cambiare il nome file allora andra' fatto qualche aggiustamento: pubblica il codice ottenuto e spiega come vuoi gestire il nome di salvataggio.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro per salvare file excel

Postdi valle1975 » 04/10/10 11:07

Ciao. ho fatto come mi hai detto e ho integrato all'attuale.
Questa è la macro attuale che uso:
Codice: Seleziona tutto
Sub salvacondata_nomeCLIENTE_aggiornata_ogg_con_pulizia()
ChDrive "C"
Perc = "C:\TEMP\"
NomeF = Perc & "Contestazione n° " & [D2] & " del " & Format([D4], "dd-mm-yyyy") & " Cliente " & [C5] & "_rev. del " & Format(Now(), "yyyy-mm-dd") & " Ore " & Format([M23], "hh_mm") & ".xls"
ActiveWorkbook.SaveAs Filename:=NomeF
    ActiveSheet.Unprotect
    Columns("F:L").Select
    Selection.ClearContents
    Selection.ClearContents
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.SmallScroll Down:=-15
    Range("K9").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("I13").Select
    ActiveWindow.SmallScroll Down:=42
    Rows("51:64").Select
    Selection.Delete Shift:=xlUp
    ActiveWindow.SmallScroll Down:=-15
    ActiveSheet.Shapes("Picture 28").Select
    Selection.Delete
    Range("H50").Select
    ActiveWindow.SmallScroll Down:=-60
    Range("K4").Select
    Sheets("MODULO CONTESTAZIONE (2) orig").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("GRAFICA").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Dati").Select
    ActiveWindow.SelectedSheets.Delete
    Range("D2").Select
    ActiveSheet.Protect Scenarios:=True, UserInterfaceOnly:=True
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub

Ho i seguenti difetti che non so risolvere :
1) Quando elimino i fogli, mi chiede sempre il messaggio di conferma, non vorrei che mi apparisse.

2) Ritornare o file originale,come era prima di usare questa Macro.

Grazie, saluti.
Valerio
---------------------------------
Windows 10 Professional + MS Office 2016 STD Ita
valle1975
Utente Senior
 
Post: 213
Iscritto il: 27/09/10 16:33

Re: macro per salvare file excel

Postdi Anthony47 » 04/10/10 15:07

Hummm... non vedo cosa c' entra la macro che hai postato con il problema che avevi riportato precedentemente ("Non riesco a far salvare solo il foglio "PIPPO" (di 4 fogli esistenti), e per questo etc etc") e a cui era riferita la mia risposta.
A meno che non hai "interpretato" la mia risposta, e invece di lavorare sulla copia del foglio in un nuovo file (riga 1 delle mie istruzioni) lavori sul file originale cancellando quel che non ti interessa; ma questa e' una travisazione del mio suggerimento.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro per salvare file excel

Postdi valle1975 » 08/10/10 16:17

Scusami, ma ho integrato parte della tua informazione nella macro di salvataggio che avevo già impostato e che salvava tutto il file.
Ho sistemato come da tuo consiglio, copiando solo il foglio e ora è tutto a posto..
Scusa ancora e Grazie mille.
Valerio
---------------------------------
Windows 10 Professional + MS Office 2016 STD Ita
valle1975
Utente Senior
 
Post: 213
Iscritto il: 27/09/10 16:33


Torna a Applicazioni Office Windows


Topic correlati a "macro per salvare file excel":


Chi c’è in linea

Visitano il forum: Nessuno e 136 ospiti