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

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

Supponiamo che tu voglia esportare e salvare uno o più fogli di lavoro come una nuova cartella di lavoro, come lo gestirai? Normalmente puoi copiare ogni foglio di lavoro e incollarlo nella nuova cartella di lavoro. Ma qui ti portiamo alcuni trucchi utili per affrontarlo:

Esporta e salva i fogli di lavoro come nuova cartella di lavoro con il comando Sposta o Copia

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

Esporta e salva i fogli di lavoro come nuova cartella di lavoro con Kutools per Excel buona idea 3


freccia blu freccia destra Esporta e salva i fogli di lavoro come nuova cartella di lavoro con il comando Sposta o Copia

Usando il Sposta o copia Il comando ti aiuterà a esportare o copiare rapidamente uno o più fogli di lavoro in una nuova cartella di lavoro.

Passaggio 1: selezionare i nomi del foglio di lavoro nella barra delle schede. È possibile selezionare più elementi tenendo premuto Ctrl chiave o spostamento chiave.

Passaggio 2: fare clic con il pulsante destro del mouse sul nome del foglio di lavoro e fare clic su Sposta o copia dal menu contestuale.
fogli di esportazione doc 1

Passaggio 3: in Sposta o copia finestra di dialogo, selezionare il (nuovo libro) elemento dall'elenco a discesa di Sposta i fogli selezionati nel libro.

fogli di esportazione doc 2

Passaggio 4: quindi fare clic su OK, ora sei passato al nuova cartella di lavoro con i fogli di lavoro esportati o copiati, fare clic su Compila il > Risparmi per salvare la nuova cartella di lavoro.

NOTA: Nell' Sposta o copia finestra di dialogo, è presente un file Crea una copia opzione. Se non lo selezioni, i fogli di lavoro selezionati verranno spostati fuori dalla cartella di lavoro originale; se lo selezioni, copierà i fogli di lavoro selezionati.


Dividi rapidamente più fogli di lavoro in una cartella di lavoro separata in Excel

In Microsoft Excel è possibile salvare o dividere un foglio di lavoro da una cartella di lavoro come nuovo file Excel copiando e incollando questo foglio di lavoro in una nuova cartella di lavoro. Sembra problematico, se vuoi dividere ogni foglio / foglio di lavoro di una grande cartella di lavoro come file Excel, txt, csv, pdf separati. Ma con Kutools for Excel'S Cartella di lavoro divisa utilità, puoi affrontarlo rapidamente.  Fai clic per una prova gratuita di 30 giorni con funzionalità complete!
cartella di lavoro divisa doc 1
 
Kutools per Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni.

freccia blu freccia destra Esporta e salva i fogli di lavoro come nuova cartella di lavoro con codice VBA

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

Passo 1: tieni premuto il tasto ALT + F11 chiavi e apre il file Microsoft Visual Basic, Applications Edition finestra.

Passo 2: fare clic inserire > Moduloe incolla la seguente macro nella finestra del 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: premere il tasto F5 chiave per eseguire questo codice. E verrà visualizzata una finestra di messaggio per dirti la posizione delle nuove cartelle di lavoro esportate e tutti i fogli di lavoro della cartella di lavoro originale sono stati esportati in alcune nuove cartelle di lavoro separate che hanno denominato i fogli originali in una nuova cartella specifica. Vedi screenshot:

fogli di esportazione doc 7

freccia blu freccia destra Esporta e salva i fogli di lavoro come nuova cartella di lavoro con Kutools per Excel

Se è necessario salvare più fogli di lavoro come cartella di lavoro separata, il primo metodo non può essere una buona scelta. E il codice VBA forse un po 'complicato per i principianti di Excel. Qui puoi usare il file Cartella di lavoro divisa utilità di Kutools for Excel per esportare e salvare rapidamente e facilmente ogni foglio di lavoro di una cartella di lavoro per separare una nuova cartella di lavoro.

Kutools for Excel, con oltre 300 funzioni utili, rende il tuo lavoro più facile. 

Dopo installazione gratuita Kutools per Excel, per favore fai come di seguito:

Passo 1: fare clic Kutools Plus > Cartella di lavoro > Cartella di lavoro divisa .... Vedi screenshot:
fogli di esportazione doc 3

Passaggio 2: in Cartella di lavoro divisa finestra di dialogo, eseguire le seguenti operazioni:

fogli di esportazione doc 4
1: tutti i nomi dei fogli di lavoro sono stati selezionati per impostazione predefinita, se non si desidera dividere alcuni fogli di lavoro, è possibile deselezionarli;


2: 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) .;


3: e puoi anche controllare Specifica salva formato e per selezionare dividi i fogli, quindi salva come file di testo, file pdf o file csv, di default, se non selezioni questa opzione, dividerà i fogli e salverà come cartella di lavoro.

Passaggio 3: quindi fare clic su Diviso e scegli la cartella in cui vuoi inserire le nuove cartelle di lavoro. Vedi screenshot:
fogli di esportazione doc 6

Passaggio 4: quindi fare clic su OK, quindi ogni foglio di lavoro controllato nel file Cartella di lavoro divisa finestra di dialogo viene esportata e salvata come cartella di lavoro individuale. Ogni nuova cartella di lavoro viene denominata con il nome del foglio di lavoro originale. Vedi screenshot:
fogli di esportazione doc 5

Fare clic per conoscere ulteriori informazioni su questo strumento cartella di lavoro divisa.

freccia blu freccia destra Esporta e salva ogni foglio come nuova cartella di lavoro


Dividi rapidamente i dati in più fogli di lavoro in base a colonne o righe fisse in Excel

Supponendo di avere un foglio di lavoro con dati nelle colonne da A a G, il nome del venditore è nella colonna A ed è necessario dividere automaticamente questi dati in più fogli di lavoro in base alla colonna A nella stessa cartella di lavoro e ogni venditore verrà suddiviso in un nuovo foglio di lavoro. Kutools for Excel'S Data suddivisa l'utilità può aiutarti a dividere rapidamente i dati in più fogli di lavoro in base alla colonna selezionata come mostrato nell'immagine sottostante in Excel.  Fai clic per una prova gratuita completa di 30 giorni!
dati suddivisi del documento 2
 
Kutools per Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni.

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 (63)
Rinomato 5 su 5 · Valutazioni 1
Questo commento è stato fatto dal moderatore sul sito
grazie mille, funziona molto bene e facile.
Questo commento è stato fatto dal moderatore sul sito
Ciao, mi piace il codice È possibile salvare semplicemente la nuova cartella di lavoro senza le informazioni sulla data Così quando salverò nuovamente i fogli nella cartella di lavoro precedente avrò la possibilità di sovrascrivere le modifiche anziché creare un'altra cartella datata? Inoltre, ma non così importante, come potrei usare un altro nome e destinazione per la cartella di destinazione Saluti Sean
Questo commento è stato fatto dal moderatore sul sito
Molte grazie. Buon lavoro!.
Questo commento è stato fatto dal moderatore sul sito
C'è un modo per modificare questa macro in modo da poterla salvare in un file nella cartella XLSTART ma verrà eseguita per la cartella di lavoro attiva? Ogni volta che lo salvo nella cartella di lavoro XLSTART, non riesce nella riga DateString = Format(Now, "yyyy-mm-dd hh-mm-ss"). Grazie! Keith
Questo commento è stato fatto dal moderatore sul sito
Ciao a tutti, qualcuno può aiutarmi su sotto. Ho bisogno di un codice VBA in grado di copiare solo tutti i fogli visibili nella nuova cartella di lavoro e non dovrebbe copiare il codice macro nella nuova cartella di lavoro, salvare la nuova cartella di lavoro sul desktop con due valori di cella diversi nel nome del foglio e del foglio come nome file e chiudere la cartella di lavoro principale senza Salvataggio.
Questo commento è stato fatto dal moderatore sul sito
Grazie. Questo è esattamente ciò di cui avevo bisogno.
Questo commento è stato fatto dal moderatore sul sito
Il codice non riesce a sh.Copy e non riesco a capire perché. Qualche idea?
Questo commento è stato fatto dal moderatore sul sito
questo codice è perfetto per quello di cui ho bisogno, ma potresti mostrare il codice per lo stesso identico processo per un foglio anziché per l'intera cartella di lavoro?
Questo commento è stato fatto dal moderatore sul sito
I codici VBA funzionano come per magia, ma c'è un modo per farlo usando VBScript? Sto impazzendo cercando di soddisfare il requisito del mio supervisore.
Questo commento è stato fatto dal moderatore sul sito
grazie. terimakasih. codice ini yang saya butuhkan
Questo commento è stato fatto dal moderatore sul sito
Molto utile grazie! Mi è piaciuto molto il codice VBA
Questo commento è stato fatto dal moderatore sul sito
Muy buena la aplicacion. Es una pena non esister tambien en Español. Grazia
Questo commento è stato fatto dal moderatore sul sito
Sfortunatamente il codice VBA non ha funzionato per me. Ho dovuto eseguire il debug e il problema riguarda la riga: Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum Qualche idea sul perché non ha funzionato per me?
Questo commento è stato fatto dal moderatore sul sito
Ottimo articolo - VBA ha funzionato per la prima volta - perfetto
Questo commento è stato fatto dal moderatore sul sito
xWs.Copy -è un errore da parte mia cosa significa?
Questo commento è stato fatto dal moderatore sul sito
Errore di runtime Metodo 'Copia dell'oggetto' foglio di lavoro' non riuscito
Questo commento è stato fatto dal moderatore sul sito
Dei tre metodi di cui sopra, ho trovato il primo metodo abbastanza buono considerando il fatto che sono un principiante e il mio lavoro non è affatto della stessa portata dei professionisti. I miei più sinceri ringraziamenti per aver spiegato i passaggi in modo semplice e lucido.
Questo commento è stato fatto dal moderatore sul sito
Possiamo anche esportare TUTTI (300+) i fogli in html, questo mi aiuterà molto, l'esportazione in testo unificato sta già aiutando ma ne ho bisogno in html, o nessun bordo della tabella per le differenze delle celle
Questo commento è stato fatto dal moderatore sul sito
Il tuo codice ha funzionato per me... Grazie mille!!!
Questo commento è stato fatto dal moderatore sul sito
Ciao. Ho ricevuto un codice di errore che dice "Errore di compilazione: procedura esterna non valida"... aiuto!
Non ci sono ancora commenti pubblicati qui
Carica Altre
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite