Come esportare e salvare ogni foglio di lavoro come nuova cartella di lavoro separata in Excel?
Supponiamo che tu voglia esportare e salvare uno o più fogli di lavoro come una nuova cartella di lavoro, come lo gestirai? Normalmente puoi copiare ogni foglio di lavoro e incollarlo nella nuova cartella di lavoro. Ma qui ti portiamo alcuni trucchi utili per affrontarlo:
Esporta e salva i fogli di lavoro come nuova cartella di lavoro con il comando Sposta o Copia
Esporta e salva i fogli di lavoro come nuova cartella di lavoro con codice VBA
Esporta e salva fogli di lavoro come nuova cartella di lavoro con Kutools per Excel 
Esporta e salva i fogli di lavoro come nuova cartella di lavoro con il comando Sposta o Copia
Usando il Sposta o copia Il comando ti aiuterà a esportare o copiare rapidamente uno o più fogli di lavoro in una nuova cartella di lavoro.
Passaggio 1: selezionare i nomi del foglio di lavoro nella barra delle schede. È possibile selezionare più elementi tenendo premuto Ctrl chiave o spostamento chiave.
Passaggio 2: fare clic con il pulsante destro del mouse sul nome del foglio di lavoro e fare clic su Sposta o copia dal menu contestuale.
Passaggio 3: in Sposta o copia finestra di dialogo, selezionare il (nuovo libro) elemento dall'elenco a discesa di Sposta i fogli selezionati nel libro.
Passaggio 4: quindi fare clic su OK, ora sei passato al nuova cartella di lavoro con i fogli di lavoro esportati o copiati, fare clic su Compila il > Risparmi per salvare la nuova cartella di lavoro.
Nota: Nel Sposta o copia finestra di dialogo, è presente un file Crea una copia opzione. Se non lo selezioni, i fogli di lavoro selezionati verranno spostati fuori dalla cartella di lavoro originale; se lo selezioni, copierà i fogli di lavoro selezionati.
Dividi rapidamente più fogli di lavoro in una cartella di lavoro separata in Excel
|
| In Microsoft Excel è possibile salvare o dividere un foglio di lavoro da una cartella di lavoro come nuovo file Excel copiando e incollando questo foglio di lavoro in una nuova cartella di lavoro. Sembra problematico, se vuoi dividere ogni foglio / foglio di lavoro di una grande cartella di lavoro come file Excel, txt, csv, pdf separati. Ma con Kutools for Excel'S Cartella di lavoro divisa utilità, puoi affrontarlo rapidamente. Fai clic per una prova gratuita di 30 giorni con funzionalità complete! |
 |
| Kutools per Excel: con oltre 300 pratici componenti aggiuntivi di Excel, provabili gratuitamente senza limitazioni in 30 giorni. |
Esporta e salva i fogli di lavoro come nuova cartella di lavoro con codice VBA
Il codice seguente esporterà ogni foglio di lavoro visibile in una nuova cartella di lavoro e salverà la cartella di lavoro con il nome del foglio originale in una cartella appena creata nello stesso percorso della cartella di lavoro attiva. Si prega di fare come segue:
Passo 1: tieni premuto il tasto ALT + F11 chiavi e apre il file Microsoft Visual Basic, Applications Edition finestra.
Passo 2: fare clic inserire > Modulie incolla la seguente macro nella finestra del modulo:
VBA: esporta e salva i fogli di lavoro come 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 SubPasso 3: premere il tasto F5 chiave per eseguire questo codice. E verrà visualizzata una finestra di messaggio per dirti la posizione delle nuove cartelle di lavoro esportate e tutti i fogli di lavoro della cartella di lavoro originale sono stati esportati in alcune nuove cartelle di lavoro separate che hanno denominato i fogli originali in una nuova cartella specifica. Vedi screenshot:
Esporta e salva fogli di lavoro come nuova cartella di lavoro con Kutools per Excel
Se è necessario salvare più fogli di lavoro come cartella di lavoro separata, il primo metodo non può essere una buona scelta. E il codice VBA forse un po 'complicato per i principianti di Excel. Qui puoi usare il file Cartella di lavoro divisa utilità di Kutools for Excel per esportare e salvare rapidamente e facilmente ogni foglio di lavoro di una cartella di lavoro per separare una nuova cartella di lavoro.
| Kutools for Excel, con oltre 300 funzioni utili, rende il tuo lavoro più facile. | ||
Dopo shavasana, sedersi in silenzio; saluti; installazione gratuita Kutools per Excel, per favore fai come di seguito:
Passo 1: fare clic Kutools Plus > Cartella di lavoro > Cartella di lavoro divisa .... Vedi screenshot:
Passaggio 2: in Cartella di lavoro divisa finestra di dialogo, eseguire le seguenti operazioni:
2: Se vuoi evitare di dividere i fogli di lavoro nascosti o vuoti, puoi controllare il file Salta i fogli di lavoro nascosti or Salta fogli di lavoro vuoti) .;
3: e puoi anche controllare Specifica salva formato e per selezionare dividi i fogli, quindi salva come file di testo, file pdf o file csv, di default, se non selezioni questa opzione, dividerà i fogli e salverà come cartella di lavoro.
Passaggio 3: quindi fare clic su Diviso e scegli la cartella in cui vuoi inserire le nuove cartelle di lavoro. Vedi screenshot:
Passaggio 4: quindi fare clic su OK, quindi ogni foglio di lavoro controllato nel file Cartella di lavoro divisa finestra di dialogo viene esportata e salvata come cartella di lavoro individuale. Ogni nuova cartella di lavoro viene denominata con il nome del foglio di lavoro originale. Vedi screenshot:
Fare clic per conoscere ulteriori informazioni su questo strumento cartella di lavoro divisa.
Esporta e salva ogni foglio come nuova cartella di lavoro
Dividi rapidamente i dati in più fogli di lavoro in base a colonne o righe fisse in Excel
|
| Supponendo di avere un foglio di lavoro con dati nelle colonne da A a G, il nome del venditore è nella colonna A ed è necessario dividere automaticamente questi dati in più fogli di lavoro in base alla colonna A nella stessa cartella di lavoro e ogni venditore verrà suddiviso in un nuovo foglio di lavoro. Kutools for Excel'S Data suddivisa l'utilità può aiutarti a dividere rapidamente i dati in più fogli di lavoro in base alla colonna selezionata come mostrato nell'immagine sottostante in Excel. Fai clic per la prova gratuita di 30 giorni con tutte le funzionalità! |
 |
| Kutools per Excel: con oltre 300 pratici componenti aggiuntivi di Excel, provabili gratuitamente senza limitazioni in 30 giorni. |
Articoli correlati:
- Combina più cartelle di lavoro in una singola cartella di lavoro
- Salva una selezione come singolo file
- Dividi una cartella di lavoro per separare i file Excel
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo 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 produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
