Condividi:        

Salvare foglio con il valore di una cella

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

Salvare foglio con il valore di una cella

Postdi Gammamax » 10/12/09 16:43

Forse chiedo troppo per excel, ma chissà.
Vorrei salvare un file con nome ricavato da una cella che ha la funzione =Adesso(), quindi variabile.

Ovvero : mi sono fatto un modulo per il mio sistema di qualità che prevede un numero d'ordine dato dal seriale della funzione adesso().
Ho preparato un bottone con macro per la stampa della copia cartacea e tutto bene, ma il file se lo riapro il giorno dopo per ristamparlo mi varia automaticamente il numero seriale.
Vorrei quindi aggiungere il copia valore, e questo lo so fare, ed il salvataggio con nome "prendendolo dalla cella "Xy."

ActiveWorkbook.SaveAs Filename:="Y:\ORDINI\xy.xls"
in modo da salvare il foglio così come si presenta a video.

nei miei ricordi di dbase esisteva un comando di aqusizione/assegnazione variabile [ get ?] esiste qualcosa di simile ?

Grazie per ogni aiuto od idea.
Gammamax
Newbie
 
Post: 8
Iscritto il: 23/11/09 15:59

Sponsor
 

Re: Salvare foglio con il valore di una cella

Postdi Flash30005 » 10/12/09 17:46

Puoi usare questa macro
Codice: Seleziona tutto
Sub SalvaF()
FXLS = Range("A1").Value & ".xls"
Perc = "Y:\Ordini\"
ActiveWorkbook.SaveAs Filename:=Perc & FXLS
End Sub

Ma nella cella "A1" devi avere la formula
Codice: Seleziona tutto
=INT(ADESSO())

Altrimenti la cella in formato numero presenta una virgola che non piò essere utilizzata come nome di file
Chiaramente al posto di A1 potrai mettere qualsiasi altra cella

Però io metterei al posto del seriale della data (poco leggibile) la data stessa "trattata" per essere subito leggibile anche dal nome del file con AAAAMMGG ed eventulamente il seriale dell'ora al momento del salvataggio, se dovesse occorrere, con una macro tipo questa
Codice: Seleziona tutto
Sub SalvaF2()
FXLS = Mid(Date, 7, 4) & Mid(Date, 4, 2) & Mid(Date, 1, 2) & "_" & Format(Int(Timer), "00000")
Perc = "Y:\Ordini\"
ActiveWorkbook.SaveAs Filename:=Perc & FXLS
End Sub

Mettendo la cartella dei file in ordine alfabetico per nome avrai anche i file in ordine cronologico

Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Salvare foglio con il valore di una cella

Postdi ricky53 » 12/12/09 22:57

Ciao,

io propongo di utilizzare
la data e l'ora
in cui viene effettuato il salvataggio ad esempio:

Codice: Seleziona tutto
FXLS = Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss")


Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Salvare foglio con il valore di una cella

Postdi ricky53 » 12/12/09 23:03

Ciao,
oppure utilizzando una sola funzione:
Codice: Seleziona tutto
FXLS = Format(Now(), "yyyymmdd-hhmmss")


Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Salvare foglio con il valore di una cella

Postdi Gammamax » 14/12/09 08:20

Grazie Flash e graziew Ricky
ho trovato tutto molo interessante, in particolare l'utilizzo della data+ora e soprattutto il fatto che il seriale generato dalla data abbia la virgola, io non ci avevo pensato perchè l'impostazione è zero decimali, ma la virgola c'è.

Non si pensa mai a tutto !!!

vado e provo.
Gammamax
Newbie
 
Post: 8
Iscritto il: 23/11/09 15:59

Re: Salvare foglio con il valore di una cella

Postdi Flash30005 » 14/12/09 10:47

Ricorda solo di aggiungere l'estensione & ".xls" che è stata inserita solo nell'esempio del valore cella (il primo esempio)
poi dimenticata nei successivi :(
prendo uno degli esempi (poi tu userai quello che più ti aggrada)

Codice: Seleziona tutto
FXLS = Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xls"  '<<<< Aggiungere l'estensione del file


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Salvare foglio con il valore di una cella":

BTp Valore
Autore: MarioLombardi
Forum: Forum off-topic
Risposte: 2

Chi c’è in linea

Visitano il forum: Ricky0185 e 36 ospiti