Come si può "dividere" un file Excel (.xlsx) che contiene più fogli in fogli separati [n] .xlsx?

Penso che il titolo dica tutto per questa domanda, ma per elaborare un po 'di più:

Ho un file .xlsx che contiene alcune dozzine di fogli. Voglio produrre tutti quei fogli come file .xlsx separati. La loro denominazione automatica non è necessaria. Excel ha una funzione per esportare fogli in un file separato?

Non è una funzionalità integrata.

Tuttavia, se si esegue questo codice, dovrebbe fare il lavoro.

Sub SaveSheets()
    Dim strPath As String
    Dim ws As Worksheet

    Application.ScreenUpdating = False

    strPath = ActiveWorkbook.Path & "\"
    For Each ws In ThisWorkbook.Sheets
        ws.Copy
        'Use this line if you want to break any links:
        BreakLinks Workbooks(Workbooks.Count)
        Workbooks(Workbooks.Count).Close True, strPath & ws.Name & ".xlsx"
    Next

    Application.ScreenUpdating = True
End Sub

Sub BreakLinks(wb As Workbook)
    Dim lnk As Variant
    For Each lnk In wb.LinkSources(xlExcelLinks)
        wb.BreakLink lnk, xlLinkTypeExcelLinks
    Next
End Sub

A eseguire il codice, attenere alla seguente procedura:

1. Apri l'editor VBA ( Alt+ F11)
2. Nell'albero nell'angolo in alto a sinistra, fai clic con il pulsante destro del mouse sulla cartella di lavoro e inserisci un nuovo modulo
3. Copia il codice sopra in questo modulo
4. Chiudi l'editor VBA
5. In Excel premere Alt+ F8per eseguire le macro e selezionareSaveSheets

oppure vedi Come posso aggiungere VBA in MS Office?

1. Quando fai clic con il pulsante destro del mouse sulla scheda di un foglio Excel, puoi selezionare Sposta o Copia ...

   

2. Nella finestra di dialogo risultante, è possibile selezionare una cartella di lavoro di destinazione. Seleziona (nuovo libro) .

   

3. Clicca OK . Il tuo foglio è ora all'interno di un nuovo documento.

Ho provato la soluzione di Peter Albert e non ha funzionato per me, quindi ho trovato una soluzione in questo post ("Excel - salva fogli di lavoro come file separati") su Diary di un fanatico del computer .

Funziona benissimo. È necessario rinominare i fogli che contengono punti per ottenere file con nome corretto con .xlsestensioni.

Sub CreateNewWBS()
Dim wbThis As Workbook
Dim wbNew As Workbook
Dim ws As Worksheet
Dim strFilename As String

    Set wbThis = ThisWorkbook
    For Each ws In wbThis.Worksheets
        strFilename = wbThis.Path & "/" & ws.Name
        ws.Copy
        Set wbNew = ActiveWorkbook
        wbNew.SaveAs strFilename
        wbNew.Close
    Next ws
End Sub

Utilizzare le istruzioni per creare ed eseguire questa macro dal post di Peter Albert o da Come aggiungere VBA in MS Office?