Note: The other languages of the website are Google-translated. Back to English

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 centinaia di clic del mouse ogni giorno!
fondo officetab
Commenti (112)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Ho i dati in 4 fogli diversi. Foglio1 è denominato "A", Foglio2 è denominato "B", Foglio3 è denominato "C" e Foglio4 è denominato "D". È necessario dividere i dati in diverse cartelle di lavoro e ogni foglio deve avere solo 25 righe. Il nome del file dovrebbe essere chiamato Foglio1 A.xls, Foglio2 A.xls se i dati vengono copiati dal Foglio A. Una volta che il Foglio è A diventa vuoto, deve copiare i dati dal Foglio B e deve continuare il numero Foglio dall'ultimo ad es. Foglio3 B.xls.
Questo commento è stato fatto dal moderatore sul sito
Quando "Dividi una cartella di lavoro per separare i file Excel con il codice VBA" funziona un sogno ma non mantiene la formattazione come le celle unite e l'allineamento delle celle nei nuovi fogli di calcolo. C'è qualcosa che posso aggiungere in modo che la formattazione sia mantenuta uguale agli originali?
Questo commento è stato fatto dal moderatore sul sito
Il codice ha funzionato a meraviglia! Sì, non tutta la formattazione è stata mantenuta. Nessun problema, però. Per me, tutte le celle unite in una tabella sono diventate non unite. È stata una cosa semplice selezionare il tavolo originale, formattare il pittore, evidenziare il tavolo copiato e voilà, come nuovo. Grazie!
Questo commento è stato fatto dal moderatore sul sito
Colonna A Indirizzo IP Colonna B Nome IP Colonna C Velocità ping IP Vero (ovvero stato ping dei comandi) Colonna D Frequenza ping IP False (ovvero Stato ping dei comandi) Questo elenco di nomi IP e IP per il formato e lo stato di excel è lo stesso formato excel ( che è vero o falso Stato)
Questo commento è stato fatto dal moderatore sul sito
Codice fantastico: mi ha salvato la giornata. Grazie per la pubblicazione.
Questo commento è stato fatto dal moderatore sul sito
Ho un problema con l'aggiunta di codice per salvare i file divisi come ReadOnly. Perché non funziona o come posso farlo? Sub Splitbook() MyPath = ThisWorkbook.Path per ogni 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
Questo commento è stato fatto dal moderatore sul sito
Struttura davvero eccezionale.., incredibile...wow..
Questo commento è stato fatto dal moderatore sul sito
Script fantastico. Ha funzionato per me come qualsiasi cosa. Grazie.
Questo commento è stato fatto dal moderatore sul sito
Script utile, ma sto cercando ulteriori passaggi, per selezionare autonomamente un criterio da Excel e popolare automaticamente in più file
Questo commento è stato fatto dal moderatore sul sito
Grazie, il metodo 1 è stato estremamente utile
Questo commento è stato fatto dal moderatore sul sito
Grazie! Mi ha risparmiato un sacco di lavoro manuale!
Questo commento è stato fatto dal moderatore sul sito
Le istruzioni VBA erano "esatte"! ... anche per un principiante! Ha funzionato alla grande!
Questo commento è stato fatto dal moderatore sul sito
Molto utile! Grazie per la condivisione
Questo commento è stato fatto dal moderatore sul sito
Grande aiuto!!! estremamente facile e utile :-)
Questo commento è stato fatto dal moderatore sul sito
Usato questo e ha funzionato. Proprio quello di cui avevo bisogno. Grazie
Questo commento è stato fatto dal moderatore sul sito
Funziona alla grande, grazie. L'ho creato come componente aggiuntivo e l'ho installato. Come faccio ora a eseguirlo ogni volta che voglio (senza dover copiare e incollare ogni volta)? C'è un pulsante che premo o un nome di funzione che utilizzo?
Questo commento è stato fatto dal moderatore sul sito
Il suo errore di visualizzazione nella riga 8.... xws cpy è un errore
Questo commento è stato fatto dal moderatore sul sito
Ha funzionato per me dopo aver rimosso l'opzione esplicita, quindi la variabile doveva essere definita. Tuttavia, vorrei sapere come dovrebbe essere definita questa variabile, poiché apprezzo l'opzione Option Explicit :)
Questo commento è stato fatto dal moderatore sul sito
Questo codice e KUtools mostrano entrambi un errore dopo la conversione di 222 file e dopo 222 file entrambi smettono di funzionare.
Questo commento è stato fatto dal moderatore sul sito
Caro signore, può inviarmi i dettagli su come codificare per dividere s
Questo commento è stato fatto dal moderatore sul sito
Puoi seguire la codifica qui sotto. Codifica VBA per fogli divisi Alt+f11 Insert-module-f5 Sub Splitbook() 'Updateby20140612 Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False per ogni xWs in ThisWorkbook.Sheets xWs.Copy Application.ActiveWorkbook.SaveAs Nome file:=xPath & "\" & xWs.Name & ".xls" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Questo commento è stato fatto dal moderatore sul sito
I fogli di lavoro erano il prodotto del report della tabella pivot, i nuovi file creati dal codice mantengono ancora la connessione all'origine dati e possono essere modificati. è possibile eseguire il codice per interrompere la connessione della tabella pivot o aggiungere una copia di tutti i fogli e incollarli come valori per eliminare la connessione?
Questo commento è stato fatto dal moderatore sul sito
Caro signor Sanjay, ho provato con i codici funziona solo per pochi fogli ma il file che sto cercando di dividere ha quasi 466 fogli. Posso sapere i codici per esso? Grazie.
Questo commento è stato fatto dal moderatore sul sito
Posso salvare lo script del modulo nella cartella di lavoro della macro PERSONAL per un uso futuro?
Questo commento è stato fatto dal moderatore sul sito
Puoi dirmi per favore come posso inviare e-mail di massa con allegati personalizzati in Outlook? Regrads, Yasir
Questo commento è stato fatto dal moderatore sul sito
Ciao Yasir, Non puoi inviare allegati personalizzati in stampa unione con Outlook. Sì, ci sono pochi strumenti esterni ma questi sono molto costosi anche non affidabili. Puoi farlo con Mozilla Thunderbird. Devi solo scaricare il componente aggiuntivo per la stampa unione e puoi farlo.
Non ci sono ancora commenti pubblicati qui
Carica Altre
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite