Come salvare il file Excel con il valore della cella?

Quando usi una cartella di lavoro, hai mai pensato di salvare il file Excel in base al contenuto di una cella? Ad esempio, hai "Prezzo di vendita" nella cella A1 e desideri salvare la cartella di lavoro come nome Prezzo di vendita. Ovviamente, puoi digitare il nome nella finestra di dialogo Salva con nome e quindi salvarlo. Ma questo sarà un metodo inefficiente nella tua mole di lavoro. Oggi parlerò di un trucco veloce per risolverlo.

Salva il file Excel con un valore di cella specifico utilizzando il codice VBA

Scheda Office Abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...

Leggi di più... Download gratuito...

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività di
80%

Riutilizza qualsiasi cosa: Aggiungi le formule, i grafici e qualsiasi altra cosa più usati o complessi ai tuoi preferiti e riutilizzali rapidamente in futuro.
Più di 20 funzioni di testo: Estrai numero dalla stringa di testo; Estrai o rimuovi parte di testi; Converti numeri e valute in parole inglesi.
Unisci strumenti: Più cartelle di lavoro e fogli in uno; Unisci più celle / righe / colonne senza perdere dati; Unisci righe duplicate e somma.
Strumenti di divisione: Suddivisione dei dati in più fogli in base al valore; Una cartella di lavoro su più file Excel, PDF o CSV; Da una colonna a più colonne.
Incolla Salto Righe nascoste / filtrate; Count And Sum di Background Color; Invia e-mail personalizzate a più destinatari in blocco.
Super filtro: Crea schemi di filtri avanzati e applicali a qualsiasi foglio; Riordina per settimana, giorno, frequenza e altro; Filtro in grassetto, formule, commenti ...
Più di 300 potenti funzionalità; Funziona con Office 2007-2021 e 365; Supporta tutte le lingue; Facile implementazione nella tua azienda o organizzazione.

Leggi di più... Download gratuito...

Salva il file Excel con un valore di cella specifico utilizzando il codice VBA

Sorprendente! Utilizzo di schede efficienti in Excel come Chrome, Firefox e Safari!

Risparmia il 50% del tuo tempo e riduci migliaia di clic del mouse ogni giorno!

Il seguente codice VBA può aiutarti a salvare la tua cartella di lavoro con un valore di cella specificato, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Moduloe incolla il codice seguente nel file Finestra del modulo.

Codice VBA: salva il file Excel con un valore di cella specifico

Private Sub filename_cellvalue()
'Update 20141112
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. E poi premere F5 chiave per eseguire il codice e la tua cartella di lavoro è stata denominata come contenuto della cella della cella A1. Vedi screenshot:

Note:

1. È possibile specificare qualsiasi valore di cella come nome file semplicemente modificando A1 con un altro riferimento di cella nel codice sopra.

2. La cartella di lavoro attiva verrà salvata nella cartella di C: \ Users \ dt \ Desktop \ my information \ (l'ultima barra deve essere rimasta quando incolli la tua posizione invece di essa) location, puoi cambiare il percorso secondo le tue necessità.

Articoli correlati:

Come salvare il file con data e ora in Excel?

Come mostrare il percorso del file nella barra del titolo o nella barra degli strumenti in Excel?

I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività di
80%

Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
Più di
300
potenti caratteristiche. Supporta Office/Excel
2007-2019 e 365
. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete
30
prova gratuita di un giorno. Garanzia di rimborso di 60 giorni.

Leggi di più... Download gratuito... Acquista...

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
Aumenta la tua produttività di
50%
e riduce centinaia di clic del mouse per te ogni giorno!

Leggi di più... Download gratuito... Acquista...

Commenti (33)

Ancora nessuna valutazione. Puoi essere il primo a votare!

chris

circa 7 anni fa

#13899

Questo commento è stato fatto dal moderatore sul sito

il modulo non salva in .XlsX; penso che abbia qualcosa a che fare con la riga 7;; ".xls", Formato file:=xlNormale; Inoltre, come posso modificare per prendere il valore da 3 diverse celle concatenate? ad esempio: nome , cognome , data; nella riga 6 del codice?

Rispondi

Shaun chris

circa 3 anni fa

#13900

Questo commento è stato fatto dal moderatore sul sito

Dim nome file come stringa
Dim filename1 come stringa
Dim filename2 come stringa

Percorso = "C:\Utenti\dt\Desktop\le mie informazioni\"
nomefile = Intervallo("A1")
nomefile1 = Intervallo("A2")
nomefile2 = Intervallo("A3")
ActiveWorkbook.SaveAs nomefile:=Percorso e nome file & "-" & nomefile1 & "-" & nomefile2 ".xls", FileFormat:=xlNormal

Rispondi

Dan

circa 6 anni fa

#15966

Questo commento è stato fatto dal moderatore sul sito

Chris. Puoi concatenarlo in una cella separata e quindi fare riferimento a quella cella come valore del tuo nome file.

Rispondi

Alana

circa 6 anni fa

#17060

Questo commento è stato fatto dal moderatore sul sito

Ciao, il mio salverà solo come percorso e nome file. Voglio solo salvare solo il nome del file a cui si fa riferimento dalla cella. Potete per favore aiutarmi?

Rispondi

Greg

circa 6 anni fa

#17240

Questo commento è stato fatto dal moderatore sul sito

Questo è piuttosto interessante ... ma sembra esserci un bug che non sono sicuro di come correggere. Lo sto usando in un modello abilitato per le macro. Apro il modello, apporto modifiche/aggiornamenti, premo F5 per eseguire la macro... e... viene visualizzata una finestra di dialogo "Vai a" in attesa che io digiti un "riferimento". Tuttavia, se premo ALT F11, quindi premi F5, il nuovo file .xls viene salvato come previsto. Devo sempre aprire il modulo di Visual Basic per eseguire questa procedura di "salvataggio"?

Rispondi

Ken Guadagni

circa 6 anni fa

#17278

Questo commento è stato fatto dal moderatore sul sito

Ho un modello su cui non voglio essere sovrascritto in modo che l'utente debba salvare il file denominato per data inserita in uno dei campi. Non voglio che l'utente debba aprire gli strumenti, quindi selezionare/eseguire la macro. Potrebbero anche inserire il nome del file.

Rispondi

Martin S Ken Guadagni

circa 5 anni fa

#17279

Questo commento è stato fatto dal moderatore sul sito

puoi aggiungere =NOW() come parametro al tuo nome file nella cella prima di estrarlo nella Macro (e anche posizionare un pulsante standard nell'angolo della pagina in modo che il dipendente non debba aprire nessuno strumento

Rispondi

Ionel D

circa 5 anni fa

#19356

Questo commento è stato fatto dal moderatore sul sito

Voi ragazzi siete dei salvavita. Grazie!

Rispondi

Kelvin

circa 5 anni fa

#19448

Questo commento è stato fatto dal moderatore sul sito

Devo salvare come file .csv. come posso cambiarlo per salvarlo come file .csv? Private Sub filename_cellvalue() 'Aggiorna 20141112 Dim Path As String Dim filename As String Path = "C:\Doorlister\import\DoorJob\" filename = Range("AC2") ActiveWorkbook.SaveAs nomefile:=Percorso e nome file & ".xls ", FileFormat:=xlNormal End Sub Grazie in anticipo per il tuo aiuto!

Rispondi

George Kelvin

circa 5 anni fa

#19449

Questo commento è stato fatto dal moderatore sul sito

Penso di aver sbagliato qualcosa qui dentro...

Mi dà un errore nella riga Fogli ("shitname").Seleziona

Probabilmente ho fatto qualcosa di sbagliato quando ho chiamato il "shitname" come la cella K10

voglio cambiare il foglio in un altro foglio che si chiama esattamente come la cella K10

' gicsel Macro
'
' Scorciatoia da tastiera: Ctrl+Maiusc+C
'
Selection.Copy
Fogli ("debagat").Seleziona
Righe ("8:8").Seleziona
ActiveSheet.Paste
Percorso fioco come stringa
Percorso = "C:\cgxml\"
Dim nome file come stringa
nomefile = Intervallo("A8")
Dim nome di merda As String
nome di merda = Intervallo ("K10")
Fogli ("shitname").Seleziona
Application.CutCopyMode = False
ActiveWorkbook.SaveAs nomefile:=Percorso e nome file & ".xml", FileFormat:=xltxt, CreateBackup:=False
Fogli("TOTALE").Seleziona
ActiveCell.Offset(1, 0).EntireRow.Select
End Sub

Rispondi

chris

circa 5 anni fa

#20579

Questo commento è stato fatto dal moderatore sul sito

Funziona alla grande... Grazie, ma devo salvare come PDF... Qualche idea?

Grazie

chris

Rispondi

Martin S chris

circa 5 anni fa

#20580

Questo commento è stato fatto dal moderatore sul sito

come sopra ma sostituisci ActiveWorkbook.SaveAs con: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filenamne.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=Vero

Rispondi

Valdemar Pena Martin S

circa 2 anni fa

#20581

Questo commento è stato fatto dal moderatore sul sito

Grazie per il tuo feedback, mi ha aiutato molto.

Rispondi

Keenan

circa 5 anni fa

#21289

Questo commento è stato fatto dal moderatore sul sito

Ciao,
Cosa dovrei aggiungere se volessi salvare il foglio di lavoro attivo ma usando il valore della cella del foglio 1?

Rispondi

Stef

circa 5 anni fa

#21661

Questo commento è stato fatto dal moderatore sul sito

Per favore aiutatemi... sono riuscito a fare tutto. Ma salva i documenti in I miei documenti invece che nel server specificato...

Private Sub CommandButton1_Click ()
Percorso fioco come stringa
Dim FileName1 come stringa
Dim FileName2 come stringa
Dim FileName3 come stringa
Dim FileName4 come stringa
Dim FileName5 come stringa
Percorso = "J:\Servizi di protezione\Documenti\Sicurezza Booysendal"
NomeFile1 = Intervallo("A2")
NomeFile2 = Intervallo("B2")
NomeFile3 = Intervallo("C2")
NomeFile4 = Intervallo("D2")
NomeFile5 = Intervallo("E2")
ActiveWorkbook.SaveAs Nomefile:=NomeFile1 & "-" & NomeFile2 & "-" & NomeFile3 & "-" & NomeFile4 & "-" & NomeFile5 & ".xls", FormatoFile:=xlNormale
End Sub

Rispondi

Michele Z Stef

circa 2 anni fa

#21662

Questo commento è stato fatto dal moderatore sul sito

Aggiungi una barra rovesciata dopo la sicurezza e prima della citazione... ...sicurezza\"

Rispondi

Janice Burbage

circa 5 anni fa

#21905

Questo commento è stato fatto dal moderatore sul sito

E se volessi solo definire il nome del file ma avere la possibilità di scegliere il percorso del file ogni volta che salvi?

Inoltre puoi specificare più celle per il nome del file. Anche le celle vengono unite.

Salva ogni volta in percorsi di file diversi

Usa più celle per il nome del file

Rispondi

Bruce McIntyre

circa 5 anni fa

#22501

Questo commento è stato fatto dal moderatore sul sito

Ok, quindi ho funzionato bene usando un pulsante nel foglio. Ora vorrei che salvasse normalmente dopo il salvataggio iniziale con nome. Può essere fatto? Usare lo stesso pulsante di salvataggio?
Grazie Bruce

Rispondi

Rajiv

circa 4 anni fa

#26361

Questo commento è stato fatto dal moderatore sul sito

come creare una macro per salvare più fogli come con i loro valori di cella come nomi di file
Grazie,
Rajiv

Rispondi

raggio

circa 4 anni fa

#26418

Questo commento è stato fatto dal moderatore sul sito

Ciao a tutti!

Come è possibile salvare l'input ripetitivo nelle stesse celle, in altre celle, con una Macro?

Nel foglio 1, inserisco i dati in A1, B1, C1, per n volte in un giorno. Nel foglio2, devo salvare tutti questi record, in A2, B2, C2, A3, B3, C3, ecc. Tnx!

Rispondi

Ahmad

circa 3 anni fa

#27813

Questo commento è stato fatto dal moderatore sul sito

Ciao amici,
Ho un problema e sarei felice se ci fosse qualcuno che mi aiutasse
Ho un file nell'unità "F" e nella cartella "ABS" - il mio nome file è "Listdata"
In un file Excel sul mio desktop voglio che le celle (4,4) recuperino i dati dal foglio "ABS" (1) e dalla cella (2,2)
Il codice sottostante
Sub Macro1 ()
activesheet.Cells(4, 4).Value = " F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
End Sub
ma non funziona correttamente
Grazie amici

Rispondi

Tim

circa 3 anni fa

#28496

Questo commento è stato fatto dal moderatore sul sito

Ciao, sto provando a usare questo codice ma quando provo ad eseguire ottengo un errore di runtime 1004 e evidenzia la riga 7 come non valida: ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
Come posso risolvere questo? Sto usando Office 365

Rispondi

Bruna

circa 3 anni fa

#30409

Questo commento è stato fatto dal moderatore sul sito

Se a célula de referencia estivar em uma outra planilha já aberta? Como fazzo?

Rispondi

Arpia

circa 3 anni fa

#30885

Questo commento è stato fatto dal moderatore sul sito

Ciao. Sono molto entusiasta che possa funzionare, ma per me sta dicendo "Errore di runtime BASIC. Procedura di singhiozzo o procedura di funzione non definita". e la freccia che indica la riga 6. Cosa devo fare?

Rispondi

Morena

circa 3 anni fa

#30906

Questo commento è stato fatto dal moderatore sul sito

Ho un pulsante di controllo per salvare come PDF con un nome specifico in una posizione specifica già funzionante, ma voglio modificare il codice poiché il nome del file è il nome del foglio attivo più il valore di una cella specifica da un altro foglio. Come lo faccio? Questo è quello che ho per salvare come PDF:

Private Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Tipo:=xlTypePDF, _
nome file:="\\U:\Documents\My_IT_Stuff\T&A\PP11", _
OpenAfterPublish: = False
Application.ScreenUpdating = True
End Sub

.

Rispondi

Report

faiyaz

circa 2 anni fa

#32939

Questo commento è stato fatto dal moderatore sul sito

qualcuno può per favore aiutare con una soluzione, sono riuscito a ottenere l'output correttamente se la cella non è vuota

Salvataggio sub privato()

Dim percorso come stringa

Dim filename1 come stringa

percorso = "C:\Utente\Compwork\"

nomefile1 = percorso & Intervallo("G4") & " " & "-" & " " & Intervallo("G6") & " " & "-" & " " & Intervallo("H7") & " " & "VTError "

Application.DisplayAlerts = False

ActiveWorkbook.Saveas filename1, FileFormat:=52, CreateBackup:=False

ThisWorkbook.Worksheets("report").ExportAsFixedFormat Type:=x1typePDF, Filename:=filename1

Application.DisplayAlerts = Vero

ActiveWorkbook.Close

End Sub

Tuttavia, il mio problema è che vorrei salvare un nome file senza lasciare uno spazio se il valore della cella è NULL, ad esempio, se il valore G6 è vuoto, mi piace l'output "G4-H7 VTError".
C'è un modo per avvicinarsi a questo?

Grazie.

Rispondi

Non ci sono ancora commenti pubblicati qui

Carica Altre

Lasciate i vostri commenti

Pubblicazione come ospite

Accedi

Nome (richiesto)

Email (Richiesto)

Valuta questo post:

cancella

0 Personaggi

Acconsento al trattamento dei dati termini e condizioni