Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

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

Potrebbe essere necessario dividere una cartella di lavoro di grandi dimensioni per separare i file Excel salvando ogni foglio di lavoro della cartella di lavoro come un singolo file Excel. Ad esempio, puoi dividere una cartella di lavoro in più file Excel individuali e quindi consegnare ogni file a una persona diversa per gestirlo. In questo modo, puoi ottenere che determinate persone gestiscano dati specifici e mantengano i tuoi dati al sicuro. Questo articolo introdurrà i modi per dividere una grande cartella di lavoro per separare i file Excel in base a ciascun foglio di lavoro.

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

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

Di solito, usando Copia comando e Incolla comando può salvare manualmente una cartella di lavoro come file Excel separato. In primo luogo, seleziona l'intero foglio di lavoro che desideri salvare come file separato, crea una nuova cartella di lavoro, quindi incollalo nella nuova cartella di lavoro, alla fine lo salva.

Questo è un modo facile da usare se è necessario dividere solo pochi fogli di lavoro come file separati. Tuttavia, deve essere dispendioso in termini di tempo e noioso dividere molti fogli di lavoro con copia e incolla manualmente.


Dividi 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 quanto segue:

1. Seleziona i fogli nella barra delle schede Foglio, fai clic con il pulsante destro del mouse e seleziona Sposta o copia dal menu contestuale. Vedi screenshot:

Note:: Tenendo Ctrl tasto, è possibile selezionare più fogli non adiacenti facendo clic su di essi uno per uno nella barra delle schede Foglio; tenendo spostamento è possibile selezionare più fogli adiacenti facendo clic sul primo e sull'ultimo nella barra delle schede Foglio.

2. Nella finestra di dialogo Sposta o Copia, seleziona (nuovo libro) dal Prenotare elenco a discesa, controllare il file 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 Compila il > Risparmi per salvare la nuova cartella di lavoro.

Dividi 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 l'estensione 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 / TESTO / CSV separato o cartella di lavoro in Excel. Prova gratuita completa di 30 giorni!
Excel cartella di lavoro divisa annunci

Kutools for Excel - Include più di 300 strumenti utili per Excel. 30 giorni di prova gratuita delle funzionalità complete, nessuna carta di credito richiesta! Get It Now

Dividi una cartella di lavoro per separare i file Excel con 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, per favore fai come segue:

1. Crea una nuova cartella per la cartella di lavoro che desideri dividere, perché i file Excel divisi rimarranno nella stessa cartella di questa cartella di lavoro principale.

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

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

VBA: dividi una cartella di lavoro in più cartelle di lavoro e salva 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 Excel nella stessa cartella con la cartella di lavoro originale. Vedi screenshot:

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

Dividi 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ò dividere più fogli di lavoro come file Excel separati in modo comodo e rapido con pochi clic.

Kutools for Excel - Include più di 300 strumenti utili per Excel. 30 giorni di prova gratuita delle funzionalità complete, nessuna carta di credito richiesta! Get It Now

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, eseguire le seguenti operazioni:
(1) Tutti i nomi dei fogli di lavoro sono selezionati per impostazione predefinita. Se non desideri dividere alcuni fogli di lavoro, puoi deselezionarli;
(2) Controllare il file Salva un tipo opzione;
(3) Dal Salva come tipo menu a discesa, scegli un tipo di file che desideri dividere e salvare.
(4) Quindi fare clic su Diviso pulsante.

Note:: 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 scatola.

3. Nella finestra di dialogo Sfoglia per cartelle, specificare una cartella di destinazione per salvare i file separati divisi 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 di cui hai bisogno. È possibile impostare per saltare tutti i fogli di lavoro vuoti e nascosti. Avere una prova gratuita!


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


Kutools for Excel include più di 300 utili strumenti per Excel, da provare gratuitamente senza limitazioni in 30 giorni. Scarica e prova gratuita ora!

Articoli correlati:


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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!
fondo officetab
Say something here...
symbols left.
You are guest
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.
    Stephanie · 5 years ago
    The VBA code worked beautifully! It saved me so much time. Thank you for sharing!
  • To post as a guest, your comment is unpublished.
    Adrian Rees · 5 years ago
    Thanks, vba code worked perfectly! Saved me a lot of time splitting a spreadsheet with 25 tabs into different files.

    Only thing i picked up is in the 6th last line i changed the file format to new Excel "xlsx"

    " & xWs.Name & ".xls" becomes >>>>> " & xWs.Name & ".xlsx"
  • To post as a guest, your comment is unpublished.
    Herb · 5 years ago
    Thanks for the VBA code!!. It worked perfectly. Saved me much work!!
  • To post as a guest, your comment is unpublished.
    NG · 5 years ago
    Hi there,

    Thank you so much for the code, however may how you would add to the code if you wanted the following to happen?
    1. What if you wanted Sheet 1 to be copied as well for each additional sheets?

    For example, the newly created
    1. "Sheet 2" would have "Sheet 1 and Sheet 2"
    2. "Sheet 3" would have "Sheet 1 and Sheet 3"

    and so on and so forth.

    Appreciate if you could provide any help with this. Thank you.
  • To post as a guest, your comment is unpublished.
    zirokl · 5 years ago
    Thank you so much for this! It is amazing, works perfectly.

    But is it possible to modify it so it saves each worksheet to the same directory(without creating a new folder) based on original file name or particular Cell Value? Just by adding (1), (2) ets at the end of each exported file.

    Greatly appreciate your help.
  • To post as a guest, your comment is unpublished.
    NG · 5 years ago
    you saved my day with this code!!
  • To post as a guest, your comment is unpublished.
    Ovi · 5 years ago
    Is there a way I can apply the split to many excel files at once? The files have the same 2 sheets (as format and name).
    Thank you!
  • To post as a guest, your comment is unpublished.
    Brian · 6 years ago
    Hello, Thank you; super helpful. I was curious how to edit the save directory. When I run this code, it saves one directory up from the directory the original file is saved. Can someone please tell me how to make it save to the source file's directory?
  • To post as a guest, your comment is unpublished.
    Sam · 6 years ago
    I am having data for all the 365 days for 14 year in one excel sheet.

    Now we want to separate the data year wise (Ex. one excel file for year 2002 in that 12 Sheet ie for 12 month and another excel file for year 2003 in that 12 Sheet ie for 12 month).

    We are able to separate month wise data (by using Excel Kutools - Split Data) and it will create excel sheet for each month (ie it will create totally 24 sheets) and then we should Split to Workbook and it will be 24 excel file and again we should combine 12 file for each year. This is taking lot of time.

    Now our problem is while splitting the date we want Excel to create Year wise Excel files and in each excel file 12 sheets for 12 months. Can we do this in same time.

    Please tell us because we are having lots of data and it is taking lot of time.
  • To post as a guest, your comment is unpublished.
    Caroline · 6 years ago
    Hi - I have a work sheet with a lot of data that I need to split into separate sheets so I can attach and email to various people. Do you know how I would go about this? I have a TOTAL cell for each batch of data that I need to split, not all the batches contain the same number of lines. Any help you can give would be greatly appreciated. Thank you.
  • To post as a guest, your comment is unpublished.
    John Boyd · 6 years ago
    Good stuff! Thank you!
  • To post as a guest, your comment is unpublished.
    Maggie · 6 years ago
    I receive a Run time error '1004'. Is this due to me using a pivot table? Is there a way around this?
    • To post as a guest, your comment is unpublished.
      Shiva-India · 6 years ago
      Dear Maggie,

      I also get Run time error '1004'. But again I tried and succeed. The error because of I hide one sheet. After unhide that sheet, I got. Check once if it is same case.
      • To post as a guest, your comment is unpublished.
        KY · 3 years ago
        THANK YOU! Finally I got this to work.
  • To post as a guest, your comment is unpublished.
    Fayyadh · 6 years ago
    Its not work
    Stuck at xWs.Copy
    what i suppose to do?

    Thanks :-)
    • To post as a guest, your comment is unpublished.
      Karen · 6 years ago
      I'm having this same problem now. It worked fine in previous months, but for some reason is not now. Did you figure out how to fix?
  • To post as a guest, your comment is unpublished.
    Andrew · 6 years ago
    I have to say I [b]LOVE[/b] Kutools for Excel, it saves me so much time everyday!

    One questions on the above process, is there an option to not open every sheet once it's created and just save it into the designated folder?
  • To post as a guest, your comment is unpublished.
    s · 6 years ago
    Superb Code. Actually searching for this.
  • To post as a guest, your comment is unpublished.
    Krishna · 6 years ago
    It's really Useful. Thanks for sharing.
  • To post as a guest, your comment is unpublished.
    Yasir Arfat · 6 years ago
    Can you please tell me that how can i send mass emails to with personalized attachment in outlook..

    Regrads,
    Yasir
    • To post as a guest, your comment is unpublished.
      Sanjay · 6 years ago
      Hi Yasir,

      You can't send personalized attachment in mail merge with outlook.

      Yes, few external tools are there but these are very costly also not reliable.

      You can do this with Mozilla Thunderbird.

      Just need to download mail merge add on & you can do this.
  • To post as a guest, your comment is unpublished.
    nayeem khan · 6 years ago
    Dear Sir,

    Can your please send me details how coding to split s
    • To post as a guest, your comment is unpublished.
      Sanjay · 6 years ago
      You can follow the below coding.

      VBA Coding for split sheets
      Alt+f11
      Insert-module-f5


      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 & ".xls"
      Application.ActiveWorkbook.Close False
      Next
      Application.DisplayAlerts = True
      Application.ScreenUpdating = True
      End Sub
      • To post as a guest, your comment is unpublished.
        Lisa · 4 years ago
        Can I save your module script to the PERSONAL Macro Workbook for future use?
      • To post as a guest, your comment is unpublished.
        Rony · 4 years ago
        Dear Mr Sanjay,

        I tried with the codes it works only for few sheets but the file I am trying to split having almost 466 sheets. May I know the codes for it? Thank you.
      • To post as a guest, your comment is unpublished.
        denise · 6 years ago
        Worksheets were product of pivot table report, new files created by the code still retain connection to data source and can be changed.
        can code be done to break pivot table connection, or add a copy all of each sheet & past as values to rid the connection?
  • To post as a guest, your comment is unpublished.
    Sanjay · 6 years ago
    This code & the KUtools both shows an error after converting 222 files & after 222 files both stop working.
  • To post as a guest, your comment is unpublished.
    Suzi · 6 years ago
    Its Showing error in the line 8....
    xws cpy is error
    • To post as a guest, your comment is unpublished.
      Marie · 5 years ago
      It worked for me after I removed the Option Explicit, so the variable needed to be defined.
      However, I would like to know what this variable should be defined as, as I appreciate the Option Explicit option :)
  • To post as a guest, your comment is unpublished.
    Lara · 7 years ago
    Works great, thanks. I have created this as an add-in and installed it. How do I now run it whenever I want to (without having to copy and paste each time)? Is there a button I push or a function name I use?
  • To post as a guest, your comment is unpublished.
    revati · 7 years ago
    Used this and it worked. Just what I needed. Thanks
  • To post as a guest, your comment is unpublished.
    ADO · 7 years ago
    Great help!!! extremely easy and useful :-)
  • To post as a guest, your comment is unpublished.
    Jennifer · 7 years ago
    Very useful! Thanks for sharing
  • To post as a guest, your comment is unpublished.
    Dodger · 7 years ago
    VBA instructions were "spot on"! ... even for a novice!
    Worked great!
  • To post as a guest, your comment is unpublished.
    Frankie · 7 years ago
    Thank you! Saved me a lot of manual effort!
  • To post as a guest, your comment is unpublished.
    joy · 7 years ago
    Thank you method 1 was extremely useful
  • To post as a guest, your comment is unpublished.
    Starscor · 7 years ago
    Useful script, but i'm looking for further steps, to self-pick a critera from a excel and auto-populate into multiple files
  • To post as a guest, your comment is unpublished.
    RAVISHANKAR · 7 years ago
    Awesome script.It's worked for me like anything. Thanks.
  • To post as a guest, your comment is unpublished.
    Shatrughan singh · 7 years ago
    Really superb facility.., amazing...wow..
  • To post as a guest, your comment is unpublished.
    KP · 7 years ago
    I am having an issue adding code to save the split files as ReadOnly. Why does this not work or how do I do this?


    Sub Splitbook()
    MyPath = ThisWorkbook.Path
    For Each sht In ThisWorkbook.Sheets
    sht.Copy
    ActiveSheet.Cells.Copy
    ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
    ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats
    ActiveWorkbook.SaveAs _
    Filename:=MyPath & "\" & sht.Name & ".xls",
    Password:="",
    WriteResPassword:="",
    ReadOnlyRecommended:=False,
    ActiveWorkbook.Close savechanges:=False
    Next sht
    End Sub
  • To post as a guest, your comment is unpublished.
    terp · 7 years ago
    Awesome code - saved the day for me. Thank you for posting.
  • To post as a guest, your comment is unpublished.
    Chandrasekar T · 7 years ago
    Column A IP Address
    Column B IP Name
    Column C IP Pinging Rate True (That is command Pinging Status)
    Column D IP Pinging Rate False (That is command Pinging Status)
    This ip and ip name list to excel format & status is same excel format(that is true or false Status)
  • To post as a guest, your comment is unpublished.
    Daniel · 7 years ago
    The code worked like a charm!
    Yes, not all formatting were kept.
    No problem, though. For me, all the merged cells in a table became un-merged. It was a simple thing to select the original table, format painter, highlight the copied table, and voila, good as new.

    Thanks!
  • To post as a guest, your comment is unpublished.
    Rebecca · 7 years ago
    When I "Split a workbook to separate Excel files with VBA code" it works a dream but does not keep formatting such as merged cells and cell alignment in the new spreadsheets.
    Is there something I can add so the formatting is kept the same as the originals?
  • To post as a guest, your comment is unpublished.
    Dhanasekar Sakthivel · 7 years ago
    I have data's in 4 different sheet. Sheet1 is named as "A", Sheet2 is named as "B", Sheet3 is named as "C" and Sheet4 is named as "D".
    Need to split the data into different workbooks and each sheet must have only 25 rows. The file name should be named as Sheet1 A.xls, Sheet2 A.xls if the data is copied from Sheet A. Once the Sheet is A become empty, it must copy the data from Sheet B and must continue the Sheet number from last e.g Sheet3 B.xls.