Note: The other languages of the website are Google-translated. Back to English
English English
  • Documenti
  • Excel
  • Come salvare il file Excel con il valore della cella?

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 ...
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.

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

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:

doc-save-con-valore-cella-1

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.
scheda kte 201905

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!
fondo officetab
Commenti (33)
Ancora nessuna valutazione. Puoi essere il primo a votare!
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?
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
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.
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?
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"?
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.
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
Questo commento è stato fatto dal moderatore sul sito
Voi ragazzi siete dei salvavita. Grazie!
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!
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
Questo commento è stato fatto dal moderatore sul sito
Funziona alla grande... Grazie, ma devo salvare come PDF... Qualche idea?

Grazie

chris
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
Questo commento è stato fatto dal moderatore sul sito
Grazie per il tuo feedback, mi ha aiutato molto.
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?
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
Questo commento è stato fatto dal moderatore sul sito
Aggiungi una barra rovesciata dopo la sicurezza e prima della citazione... ...sicurezza\"
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
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
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
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!
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
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
Questo commento è stato fatto dal moderatore sul sito
Se a célula de referencia estivar em uma outra planilha já aberta? Como fazzo?
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?
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

.
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.
Non ci sono ancora commenti pubblicati qui
Carica Altre
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL