Come esportare e salvare ogni foglio di lavoro come una nuova cartella di lavoro separata in Excel?
Esportare e salvare singoli fogli di lavoro come cartelle di lavoro distinte in Excel è un’operazione comune, soprattutto quando si condividono o si organizzano dati. Anche se è possibile copiare manualmente i fogli in nuove cartelle di lavoro, questa procedura può rivelarsi noiosa e dispendiosa in termini di tempo, specialmente con file contenenti numerosi fogli. In questa guida esploreremo diversi metodi passo dopo passo, aiutandoti a individuare la soluzione più adatta alle tue esigenze e al tuo livello di competenza.
Salva i fogli di lavoro come Nuovo workbook uno alla volta con il comando Sposta o Copia
Utilizzando il comando «Sposta o Copia» è possibile esportare o copiare rapidamente uno o più fogli di lavoro in una nuova cartella di lavoro.
Passaggio 1: Seleziona il nome del foglio di lavoro dalla barra delle schede. Per selezionare più fogli contemporaneamente, tieni premuto il tasto «Ctrl» e fai clic sulle singole schede dei fogli una alla volta.
Passaggio 2: Fare clic con il pulsante destro del mouse sul nome del foglio di lavoro e selezionare «Sposta o copia» dal menu contestuale.
Passaggio 3: Nella finestra di dialogo «Sposta o Copia», seleziona l’opzione «(nuova cartella di lavoro)» dal menu a discesa «Sposta i fogli di lavoro selezionati in».
Passaggio 4: Fare quindi clic su «OK». A questo punto si passerà alla «Nuova cartella di lavoro» contenente i fogli esportati o copiati; fare clic su «File» > «Salva» per salvare la nuova cartella di lavoro.
Nota: Nella finestra di dialogo «Sposta o Copia» è disponibile l’opzione «Crea una copia». Se non la si seleziona, i fogli di lavoro selezionati verranno spostati dalla cartella di lavoro originale; se la si seleziona, invece, verranno creati dei fogli di lavoro copiati.
Salva facilmente in blocco i fogli di lavoro come Nuovo workbook con Kutools per Excel
Se devi salvare più fogli di lavoro come cartelle di lavoro separate, il primo metodo non è la scelta ideale. Inoltre, il codice VBA riportato di seguito potrebbe risultare un po’ complesso per gli utenti meno esperti di Excel. In questi casi, puoi utilizzare l’utilità «Dividi documento» di «Kutools per Excel» per salvare facilmente e in blocco ogni foglio della cartella come singola nuova cartella di lavoro.
Dopo aver installato Kutools per Excel, fai clic su «KUTOOLS PLUS» > «Cartella di lavoro» > «Dividi documento» per aprire la finestra di dialogo «Dividi documento». Procedi quindi con la seguente configurazione.
- Seleziona i fogli di lavoro che vuoi salvare come nuovo workbook. Per impostazione predefinita, tutti i fogli sono già selezionati.
- È possibile ignorare i fogli nascosti e i fogli di lavoro vuoti selezionando le relative caselle di controllo nella sezione «Opzioni».
- Fare clic su «OK».
- Viene visualizzata la finestra di dialogo «Seleziona cartella»; seleziona quindi la cartella di destinazione in cui salvare i file del nuovo workbook e fai clic sul pulsante «Seleziona cartella».
A questo punto, i fogli di lavoro specificati o tutti i fogli di lavoro verranno immediatamente salvati come singoli file in una nuova cartella di lavoro.
- Questa funzionalità ti permette di salvare ogni foglio di lavoro come file TXT, CSV o PSF separato: basta selezionare la casella «Specifica formato di salvataggio» e scegliere l’opzione desiderata dal menu a discesa.
- Per utilizzare questa funzionalità, è necessario avere installato «Kutools per Excel» sul proprio computer.Scarica subito Kutools per Excel.
Esporta e salva i fogli di lavoro come Nuovo workbook con codice VBA
Il seguente codice esporterà ogni foglio di lavoro visibile in una nuova cartella di lavoro e salverà tale cartella con il nome del foglio originale all’interno di una nuova sottocartella creata nello stesso percorso della cartella di lavoro corrente. Procedere come segue:
Passaggio 1: Tenere premuti i tasti «ALT» + "F11" per aprire la finestra di Microsoft Visual Basic, Applications Edition.
Passaggio 2: Fare clic su «Inserisci» > «Modulo» e incollare la seguente macro nella finestra del modulo:
VBA: Esporta e salva i fogli di lavoro come una nuova cartella di lavoro in una nuova cartella.
Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook
DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString
If Val(Application.Version) < 12 Then
FileExtStr = ".xls": FileFormatNum = -4143
Else
Select Case xWb.FileFormat
Case 51:
FileExtStr = ".xlsx": FileFormatNum = 51
Case 52:
If Application.ActiveWorkbook.HasVBProject Then
FileExtStr = ".xlsm": FileFormatNum = 52
Else
FileExtStr = ".xlsx": FileFormatNum = 51
End If
Case 56:
FileExtStr = ".xls": FileFormatNum = 56
Case Else:
FileExtStr = ".xlsb": FileFormatNum = 50
End Select
End If
MkDir FolderName
For Each xWs In xWb.Worksheets
On Error GoTo NErro
If xWs.Visible = xlSheetVisible Then
xWs.Select
xWs.Copy
xFile = FolderName & "\" & xWs.Name & FileExtStr
Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
xNWb.SaveAs xFile, FileFormat:=FileFormatNum
xNWb.Close False, xFile
End If
NErro:
xWb.Activate
Next
MsgBox "You can find the files in " & FolderName
Application.ScreenUpdating = True
End SubPassaggio 3: Premere il tasto "F5" per eseguire il codice. Verrà visualizzata una finestra di avviso che mostra il percorso della nuova cartella contenente le cartelle di lavoro esportate: tutti i fogli di lavoro della cartella originale saranno stati esportati come cartelle di lavoro distinte, ciascuna denominata in base al foglio originale e salvata in una cartella appositamente creata.
Demo: Esporta e salva ogni foglio come Nuovo workbook
Articoli correlati:
- Combina più cartelle di lavoro in un’unica cartella di lavoro
- Salva una selezione come file separato
- Dividi una cartella di lavoro in singoli File di Excel
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi