Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Log In
x
or
x
x
Registrati
x

or

Come dividere una cartella di lavoro per separare i file Excel in Excel?

Potrebbe essere necessario dividere una grande cartella di lavoro per separare i file di Excel con il salvataggio di ogni foglio di lavoro della cartella di lavoro come un singolo file Excel. Ad esempio, puoi dividere una cartella di lavoro in più singoli file Excel e quindi consegnare ciascun file a una persona diversa per gestirlo. In tal modo, è possibile ottenere determinate persone gestire dati specifici e mantenere i vostri dati al sicuro. In questo articolo verranno introdotti modi per dividere una cartella di lavoro di grandi dimensioni per separare i file di Excel in base a ciascun foglio di lavoro.

  1. Dividere una cartella di lavoro per separare i file di Excel con copia e incolla
  2. Dividere una cartella di lavoro per separare i file Excel con la funzione Sposta o Copia
  3. Dividere una cartella di lavoro per separare i file Excel con il codice VBA
  4. Dividere una cartella di lavoro per separare facilmente i file Excel / PDF / CSV / TXT con Kutools per Excel

Suddividere rapidamente una cartella di lavoro per separare i file Excel / PDF / TXT / CSV in Excel

Normalmente possiamo dividere una cartella di lavoro in singoli file Excel con Sposta o copia funzionalità in Excel. Ma Kutools per Excel Cartella di lavoro divisa l'utilità può aiutarti a dividere facilmente una cartella di lavoro e salvare ogni foglio di lavoro come file PDF / TEXT / CSV separato o cartella di lavoro in Excel. Prova gratuita di funzionalità complete 60-day!
cartella di lavoro annuncio excel

Kutools for Excel - Include più di 300 utili strumenti di Excel. 60-giorno di prova gratuita per tutte le funzionalità, nessuna carta di credito richiesta! Scarica la guida!


Dividere una cartella di lavoro per separare i file di Excel con copia e incolla


Nel solito, usando Copia la cartella comando e Incolla comando può salvare manualmente una cartella di lavoro come file Excel separato. In primo luogo, selezionare l'intero foglio di lavoro che si desidera salvare come file separato, creare una nuova cartella di lavoro e quindi incollarla nella nuova cartella di lavoro, alla fine salvarla.

Questo è un modo facile da usare se è necessario dividere solo alcuni fogli di lavoro come file separati. Tuttavia, è necessario tempo e noiosi per suddividere molti fogli di lavoro con copia e incolla manualmente.


Dividere una cartella di lavoro per separare i file Excel con la funzione Sposta o Copia

Questo metodo introdurrà la funzione Sposta o Copia per spostare o copiare i fogli selezionati in una nuova cartella di lavoro e salvarli come cartella di lavoro separata. Si prega di fare come segue:

1. Selezionare i fogli nella barra della scheda Foglio, fare clic con il tasto destro e selezionare Sposta o copia dal menu di scelta rapida. Vedi screenshot:

Note: Holding Ctrl chiave, è possibile selezionare più fogli non adiacenti con un clic uno alla volta nella barra della scheda Foglio; detenzione spostamento chiave, è possibile selezionare più fogli adiacenti facendo clic sul primo e l'ultimo nella barra dei fogli.

2. Nella finestra di dialogo Sposta o copia, selezionare (nuovo libro) dal Prenotare menu a discesa, selezionare il Crea una copia opzione e fare clic su OK pulsante. Vedi screenshot:

3. Ora tutti i fogli selezionati vengono copiati in una nuova cartella di lavoro. Clic filetto > Risparmi il per salvare la nuova cartella di lavoro.


Dividere una cartella di lavoro per separare i file Excel con il codice VBA

Il seguente codice VBA può aiutarti a dividere rapidamente più fogli di lavoro della cartella di lavoro corrente per separare i file Excel, fai come segue:

1. Creare una nuova cartella per la cartella di lavoro che si desidera dividere, poiché i file di Excel divisi verranno conservati nella stessa cartella di questa cartella di lavoro principale.

2. Tenere premuto il tasto ALT + F11 chiavi in ​​Excel e apre il Microsoft Visual Basic, Applications Edition finestra.

3. Clic inserire > Moduloe incollare il seguente codice nella finestra del modulo.

VBA: dividere una cartella di lavoro in più cartelle di lavoro e salvare nella stessa cartella

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. premi il F5 chiave per eseguire questo codice. E la cartella di lavoro viene divisa per separare i file di Excel nella stessa cartella con la cartella di lavoro originale. Vedi screenshot:

Note: Se uno dei fogli ha lo stesso nome con la cartella di lavoro, questo VBA non può funzionare.


Dividere una cartella di lavoro per separare facilmente i file Excel / PDF / CSV / TXT con Kutools per Excel

Se si dispone di Kutools for Excel installato, il suo Cartella di lavoro divisa lo strumento può suddividere più fogli di lavoro come file Excel separati comodamente e rapidamente con pochi clic.

Kutools for Excel - Include più di 300 utili strumenti di Excel. 60-giorno di prova gratuita per tutte le funzionalità, nessuna carta di credito richiesta! Scarica la guida!

1. Dopo l'installazione Kutools for Excel, fare clic su Kutools Plus > Cartella di lavoro divisa , vedi screenshot:

2. Nel Cartella di lavoro divisa finestra di dialogo, effettuare le seguenti operazioni:
(1) Tutti i nomi dei fogli di lavoro sono selezionati per impostazione predefinita. Se non vuoi dividere alcuni fogli di lavoro, puoi deselezionarli;
(2) Controllare il Salva un tipo opzione;
(3) Dal Salva come tipo scendi, scegli un tipo di file che vuoi dividere e salvare.
(4) Quindi fare clic Diviso pulsante.

Note: Se si desidera evitare di dividere i fogli di lavoro nascosti o vuoti, è possibile controllare il Salta i fogli di lavoro nascosti or Salta fogli di lavoro vuoti scatola.

3. Nella finestra di dialogo Sfoglia per cartelle, specificare una cartella di destinazione in cui salvare i file separati e fare clic su OK pulsante.

Ora i fogli di lavoro selezionati vengono salvati come nuove cartelle di lavoro separate. Ogni nuova cartella di lavoro viene denominata con il nome del foglio di lavoro originale. Vedi screenshot:

Kutools for Excel's Cartella di lavoro divisa lo strumento semplifica la suddivisione della cartella di lavoro attiva in singoli file Excel (un file contiene un foglio di lavoro), file CSV, file TXT o file PDF in base alle tue esigenze. È possibile impostare di saltare tutti i fogli di lavoro vuoti e nascosti. Fai una prova gratuita!


Demo: dividere o salvare ogni foglio di lavoro di una cartella di lavoro come file separati excel / txt / csv / pdf

In questo video, il Kutools scheda e il Kutools Plus scheda sono aggiunti da Kutools for Excel. Se necessario, fare clic qui avere una prova gratuita 60 di giorni senza limiti!


Articoli correlati:



Strumenti di produttività consigliati

Office Tab

stella d'oro1 Porta pratiche schede ad Excel e ad altri software Office, proprio come Chrome, Firefox e il nuovo Internet Explorer.

Kutools for Excel

stella d'oro1 Stupefacente! Aumenta la tua produttività in 5 minuti. Non servono abilità speciali, risparmiate due ore al giorno!

stella d'oro1 300 Nuove funzionalità per Excel, rendono Excel molto semplice e potente:

  • Unisci cella / righe / colonne senza perdere dati.
  • Combina e consolida più fogli e cartelle di lavoro.
  • Confronta intervalli, copia intervalli multipli, conversione testo in data, unità e conversione valuta.
  • Contare in base a colori, totali parziali cercapersone, ordinamento avanzato e filtro super,
  • Altro Seleziona / Inserisci / Elimina / Testo / Formato / Link / Commento / Cartelle di lavoro / Fogli di lavoro Strumenti ...

Schermata di Kutools per Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Judy Smith · 9 months ago
    Please disregard my previous post. I have resolved my issue.
  • To post as a guest, your comment is unpublished.
    Judy Smith · 9 months ago
    I am using the split data into worksheets based on a column with 27 items in that column. The results are 54 worksheets 2 for each item. The only difference I can see is based on one of the columns in the range. For example:

    Once the split has occured, John Doe has 2 worksheets, one named John Doe and another named Sheet32. Each sheet has information for John Doe, but based on a column "Status" (Billed, Open Order, Salesforce), the information is split. The named worksheet has Billed & Open Order information and the Sheet32 has Salesforce information.


    Any idea what I am doing wrong?


  • To post as a guest, your comment is unpublished.
    Sreejith · 10 months ago
    That really helped. Thank you.
  • To post as a guest, your comment is unpublished.
    Gabriel · 1 years ago
    With the addition of code from comment below it works realy nice.
  • To post as a guest, your comment is unpublished.
    Paulo Corcino · 1 years ago
    Sub Splitbook()
    'Updateby20140612
    Dim xPath As String
    Dim Sourcewb As Workbook
    Dim Destwb As Workbook
    Dim xWs As Worksheet


    xPath = Application.ActiveWorkbook.Path
    Set Sourcewb = ActiveWorkbook

    With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
    End With


    ' For Each xWs In ThisWorkbook.Sheets
    For Each xWs In Sourcewb.Worksheets

    If xWs.Visible = -1 Then
    xWs.Copy
    Set Destwb = ActiveWorkbook
    If Destwb.Sheets(1).ProtectContents = False Then
    With Destwb.Sheets(1).UsedRange
    .Cells.Copy
    .Cells.PasteSpecial xlPasteValues
    .Cells(1).Select
    End With
    Application.CutCopyMode = False
    End If
    With Destwb
    .SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    .Close False
    End With
    End If
    Next

    With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
    End With

    MsgBox "You can find the files in " & xPath

    End Sub