Come esportare e salvare ogni foglio di lavoro come nuova cartella di lavoro separata in Excel?

Esportare e salvare singoli fogli di lavoro come cartelle di lavoro separate in Excel è un'operazione comune, specialmente quando si condividono o organizzano dati. Sebbene copiare e incollare manualmente i fogli di lavoro in nuove cartelle di lavoro sia un'opzione, può essere noioso e dispendioso in termini di tempo, soprattutto per cartelle di lavoro con più fogli. In questa guida, esploreremo diversi metodi per raggiungere questo obiettivo passo dopo passo, aiutandoti a scegliere la soluzione migliore in base alle tue esigenze e competenze.

Salva i fogli di lavoro come nuova cartella di lavoro uno per uno con il comando Sposta o Copia

Utilizzando il comando "Sposta o Copia" ti aiuterà a esportare o copiare uno o più fogli di lavoro in una nuova cartella di lavoro rapidamente.

Passo 1: Seleziona i nomi dei fogli di lavoro dalla barra delle schede. Per selezionare più fogli di lavoro, tieni premuto il tasto "Ctrl" e fai clic sulle schede dei fogli uno per uno.

Passo 2: Fai clic con il tasto destro sul nome del foglio di lavoro e clicca su "Sposta o Copia" dal menu contestuale.

Passo 3: Nella finestra di dialogo "Sposta o Copia", seleziona l'elemento "(nuovo libro)" dall'elenco a discesa di "Sposta i fogli selezionati nel libro".

Passo 4: Quindi clicca su "OK", ora sei passato alla "nuova cartella di lavoro" con i fogli di lavoro esportati o copiati, clicca su "File" > "Salva" per salvare la nuova cartella di lavoro.

Nota: Nella finestra di dialogo "Sposta o Copia", c'è un'opzione "Crea una copia". Se non la spunti, sposterà i fogli di lavoro selezionati fuori dalla cartella di lavoro originale; se la spunti, copierà i fogli di lavoro selezionati.

Salva facilmente in batch i fogli di lavoro come nuova cartella di lavoro con Kutools per Excel

Se hai più fogli di lavoro che devono essere salvati come cartelle di lavoro separate, il primo metodo non è una buona scelta. E il codice VBA qui sotto potrebbe essere un po' complicato per i principianti di Excel. Qui puoi utilizzare l'utilità "Dividi Cartella di Lavoro" di "Kutools per Excel" per salvare facilmente in batch ogni foglio di lavoro di una cartella di lavoro in cartelle di lavoro separate.

Dopo aver installato Kutools per Excel, clicca su "Kutools Plus" > "Cartella di lavoro" > "Dividi Cartella di Lavoro" per aprire la finestra di dialogo "Dividi Cartella di Lavoro". Dopodiché configura come segue.

1. Seleziona i fogli di lavoro che desideri salvare come nuove cartelle di lavoro. Di default, tutti i fogli di lavoro sono selezionati.
2. È facoltativo saltare i fogli di lavoro nascosti e vuoti spuntando le caselle di controllo corrispondenti nella sezione "Opzioni".
3. Clicca su "OK".

   

4. Apparirà una finestra di dialogo "Seleziona Cartella", quindi dovrai selezionare una cartella di destinazione per salvare le nuove cartelle di lavoro e cliccare sul pulsante "Seleziona Cartella".

Quindi, i fogli di lavoro specificati o tutti i fogli di lavoro verranno salvati come nuove cartelle di lavoro separate immediatamente.

Esporta e salva i fogli di lavoro come nuova cartella di lavoro con il codice VBA

Il seguente codice 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 nuova cartella creata nello stesso percorso della cartella di lavoro attiva. Procedi come segue:

Passo 1: Tieni premuti i tasti "ALT" + "F11" e si aprirà la finestra "Microsoft Visual Basic for Applications".

Passo 2: Clicca su "Inserisci" > "Modulo" e incolla la seguente macro nella finestra 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 Sub

Passo 3: Premi il tasto "F5" per eseguire questo codice. Apparirà una finestra di dialogo che ti indicherà la posizione delle nuove cartelle di lavoro esportate, e tutti i fogli di lavoro della cartella di lavoro originale saranno stati esportati in alcune nuove cartelle di lavoro separate, denominate come i fogli originali, in una nuova cartella specifica.

Demo: Esporta e salva ogni foglio come nuova cartella di lavoro

Articoli correlati:

• Combina più cartelle di lavoro in un'unica cartella di lavoro
• Salva una selezione come file individuale
• Dividi una cartella di lavoro in file Excel separati