Hvordan å splitte en arbeidsbok for å skille Excel-filer i

In Excel? Vanlig, ved hjelp av kommandoen Kopier og Lim inn kommandoen kan lagre en arbeidsbok som en egen Excel-fil manuelt. For det første, velge hele regnearket du vil lagre som en egen fil, opprette en ny arbeidsbok, og lim den inn i ny arbeidsbok, på slutten lagrer det.
Denne måten er lett å bruke hvis du trenger å splitte bare noen regneark som separate filer. Imidlertid må det være tidkrevende og kjedelig å splitte mange regneark med å kopiere og lime manuelt.

Split en arbeidsbok for å skille Excel-filer med VBA-kode
følgende VBA-kode kan hjelpe deg raskt splitte flere regneark av gjeldende arbeidsbok for å skille Excel-filer, kan du gjøre som følger:
1. Opprett en ny mappe for arbeidsboken du vil dele, fordi de delt Excel-filer vil bli bodde på samme mappe som denne master arbeidsbok.
2. Hold nede ALT + F11-tastene i Excel, og det åpner Microsoft Visual Basic for Applications vinduet.
3. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA. Split en arbeidsbok inn flere arbeidsbøker og lagre i samme mappe
Sub Splitbook () 'Updateby20140612Dim xPath Som StringxPath = Application.ActiveWorkbook.PathApplication.ScreenUpdating. = FalseApplication.DisplayAlerts = FalseFor Hver xWs I ThisWorkbook.Sheets xWs.Copy Application.ActiveWorkbook.SaveAs Name: = xPath & "\\" &Amp; xWs.Name & "XLS" Application.ActiveWorkbook.Close FalseNextApplication.DisplayAlerts = TrueApplication.ScreenUpdating = TrueEnd Sub
4. Trykk F5 for å kjøre denne koden. Og arbeidsboken er delt for å skille Excel-filer i samme mappe med den opprinnelige arbeidsboken. Se skjermbilde:
Merk: Hvis ett av arkene har samme navn med arbeidsboken, kan dette VBA ikke fungere

Split en arbeidsbok for å skille Excel-filer med Kutools for Excel lett
. Hvis du har Kutools for Excel installert, kan dens Split arbeidsbok verktøy splitte flere regneark som separate Excel-filer raskt med bare noen få klikk og bekvemt.
Kutools for Excel omfatter mer enn 120 praktiske Excel-verktøy. Gratis å prøve uten begrensning i 30 dager. Få den nå.
En. Etter å ha installert Kutools for Excel, klikk Enterprise > Arbeidsbok > Split arbeidsbok, se skjermbilde:
to. I Split arbeidsbok dialogboksen er alle regnearknavnene merket av som standard. Hvis du ikke ønsker å dele noen av regneark, kan du fjerner dem, og til slutt klikker du på Del-knappen. Se skjermbilde:
Merk: Hvis du vil unngå å splitte de skjulte eller tomme regneark, kan du sjekke Hopp skjulte regneark eller Hopp tomt regneark boks
3.. I det følgende dukker opp Bla etter mappe dialogboksen, velg en plassering for å lagre ny split Excel-filer, og klikk på OK-knappen.
4 da. Nå de valgte regneark lagres som nye atskilte arbeidsbøker. Hver ny arbeidsbok heter med det opprinnelige regnearket navn. Se skjermbilde:
Kutools for Excel Split arbeidsbok verktøyet gjør det enkelt å dele aktive arbeidsboken i enkelte Excel-filer (en fil inneholder ett regneark), og hver Excel-fil bærer navnet på regnearket. Du kan stille inn til å hoppe over alle de tomme og skjulte regneark. Les mer ...