I cookie ci aiutano i nostri servizi. Utilizzando i nostri servizi, l'utente accetta di utilizzare i cookie.
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 esportare e salvare ogni foglio di lavoro come nuova cartella di lavoro separata in Excel?

Diciamo che vuoi esportare e salvare uno o più fogli di lavoro come una nuova cartella di lavoro, come la gestirai? Normalmente è possibile copiare ciascun foglio di lavoro e incollarlo in una nuova cartella di lavoro. Ma qui ti portiamo alcuni pratici trucchi 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 idea3


Suddividi 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 un nuovo file di Excel copiando e incollando questo foglio di lavoro in una nuova cartella di lavoro. Sembra problematico, se si desidera dividere ogni foglio / foglio di lavoro di una cartella di lavoro di grandi dimensioni come file Excel, txt, csv, pdf separati. Ma con Kutools for Excel'S Cartella di lavoro divisa utilità, puoi gestirlo rapidamente. Fai clic per la prova gratuita di 60 giorni con tutte le funzionalità!
cartella di lavoro divisa per documenti 1
Kutools per Excel: con più di 300 pratici componenti aggiuntivi di Excel, liberi di provare senza limiti nei giorni 60.

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


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

Passo 1: selezionare i nomi del foglio di lavoro nella barra delle schede. Puoi selezionare multipli tenendo premuto Ctrl chiave o spostamento chiave.

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

Passo 3: In Sposta o copia finestra di dialogo, selezionare il (nuovo libro) voce dall'elenco a discesa di Sposta i fogli selezionati per prenotare.

fogli di esportazione doc 2

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

Nota: Nel Sposta o copia finestra di dialogo, c'è a Crea una copia opzione. Se non lo controlli, sposterà i fogli di lavoro selezionati dalla cartella di lavoro originale; se lo controlla, copierà i fogli di lavoro selezionati.


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

Questo codice seguente esporterà ogni foglio di lavoro visibile in una nuova cartella di lavoro e salva 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 i seguenti passaggi:

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

Passo 2: fare clic inserire > Moduloe incollare 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()
'Updateby20140612
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb 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
MkDir FolderName
For Each xWs In xWb.Worksheets
    xWs.Copy
    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
    xFile = FolderName & "\" & Application.ActiveWorkbook.Sheets(1).Name & FileExtStr
    Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum
    Application.ActiveWorkbook.Close False
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. Viene visualizzata una finestra di dialogo per indicare 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 gli screenshot:

fogli di esportazione doc 7

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

Se hai bisogno di più fogli di lavoro da salvare come cartella di lavoro separata, il primo metodo non può essere una buona scelta. E il codice VBA può essere un po 'complicato per i principianti di Excel. Qui puoi usare il Cartella di lavoro divisa utilità di Kutools for Excel esportare e salvare in modo rapido e semplice ogni foglio di lavoro di una cartella di lavoro per separare una nuova cartella di lavoro.

Kutools for Excel, con oltre 200 funzioni a portata di mano, facilita il lavoro.

Dopo installazione gratuita Kutools per Excel, si prega di fare come di seguito:

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

Passo 2: nel Cartella di lavoro divisa finestra di dialogo, fare come di seguito:

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


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


3: e anche tu puoi controllare Specificare salvare formato e per selezionare dividere i fogli, quindi salvare come file di testo, file pdf o file csv, in caso contrario, se non si seleziona questa opzione, i fogli verranno divisi e salvati come cartella di lavoro.

Passo 3: quindi fare clic Diviso pulsante e selezionare la cartella in cui si desidera inserire le nuove cartelle di lavoro. Vedi screenshot:
fogli di esportazione doc 6

Passo 4: quindi fare clic OK, quindi ogni foglio di lavoro controllato in Cartella di lavoro divisa la 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 ulteriori informazioni su questo strumento di divisione della cartella di lavoro.

freccia blu bolla destra Esportare e salvare ogni foglio come nuova cartella di lavoro




Suddividi rapidamente i dati in più fogli di lavoro basati su 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 si trova nella colonna A e devi dividere automaticamente questi dati in più fogli di lavoro basati sulla colonna A nella stessa cartella di lavoro e ciascun venditore sarà suddiviso in un nuovo foglio di lavoro. Kutools for Excel'S Dividi la data l'utilità può aiutarti a suddividere rapidamente i dati in più fogli di lavoro in base alla colonna selezionata, come mostrato in figura in Excel. Fai clic per una prova gratuita per tutti i giorni futuri di 60!
dati suddivisi in documenti 2
Kutools per Excel: con più di 300 pratici componenti aggiuntivi di Excel, liberi di provare senza limiti nei giorni 60.

Articoli correlati:



Strumenti di produttività consigliati

Office Tab

stella d&#39;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&#39;oro1Stupefacente! Aumenta la tua produttività in 5 minuti. Non servono abilità speciali, risparmiate due ore al giorno!

stella d&#39;oro1300 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.
    PK · 5 hours ago
    How to convert this macro so that I can save it in my personal workbook and can use to where ever I need it.
  • To post as a guest, your comment is unpublished.
    Sergii · 10 days ago
    February 2019 - after some update Excel silently exits macro right after Application.ActiveWorkbook.SaveAs
    It means, that commands Application.ActiveWorkbook.Close does not run and file stays opened... Could it be fixed? This happened all the machines in our office on several workbooks that were using such kind of Macro.
  • To post as a guest, your comment is unpublished.
    Jenne · 5 months ago
    Do you have the formula to make sure that each excel sheet when saved as a new work book is in total format Comma Delimited .CSV
  • To post as a guest, your comment is unpublished.
    Jenne · 5 months ago
    Love this and another info you have on splitting data into each worksheet. However I keep getting an error when trying to upload my single reports into my system

    I needed them as a csv file so just changed the last part of the module to .csv I am wondering if I missed something else that should've been changed.

    Thanks a million
  • To post as a guest, your comment is unpublished.
    Ananda · 1 years ago
    what is the use of Worksheet.Save??