Gå til hovedindhold

Hvordan eksporteres og gemmes hvert regneark som separat ny projektmappe i Excel?

Lad os sige, at du vil eksportere og gemme et eller flere regneark som en ny projektmappe, hvordan vil du håndtere det? Normalt kan du kopiere hvert regneark og indsætte i en ny projektmappe. Men her bringer vi dig nogle nyttige tricks til at håndtere det:

Eksporter og gem regneark som en ny projektmappe med kommandoen Flyt eller Kopi

Eksporter og gem regneark som ny projektmappe med VBA-kode

Eksporter og gem regneark som ny projektmappe med Kutools til Excel god idé3


pil blå højre boble Eksporter og gem regneark som en ny projektmappe med kommandoen Flyt eller Kopi

Brug af Flyt eller Kopier kommando hjælper dig med hurtigt at eksportere eller kopiere et eller flere regneark til en ny projektmappe.

Trin 1: Vælg regnearknavne i fanebjælken. Du kan vælge flere ved at holde nede Ctrl nøgle eller skifte nøgle.

Trin 2: Højreklik på regnearkets navn, og klik på Flyt eller Kopier fra genvejsmenuen.
doc eksportark 1

Trin 3: I Flyt eller Kopier dialogboksen skal du vælge (ny bog) element fra rullelisten over Flyt valgte ark til bog.

doc eksportark 2

Trin 4: Klik derefter på OK, nu er du skiftet til ny projektmappe med eksporterede eller kopierede regneark skal du klikke på filet > Gem for at gemme den nye projektmappe.

Bemærk: I boksen Flyt eller Kopier dialogboksen, er der en Opret en kopi mulighed. Hvis du ikke markerer det, flytter det de valgte regneark ud af den originale projektmappe. hvis du markerer det, kopieres det valgte regneark.


Opdel hurtigt flere regneark i separat projektmappe i Excel

I Microsoft Excel kan du gemme eller opdele et regneark fra en projektmappe som en ny Excel-fil ved at kopiere og indsætte dette regneark i en ny projektmappe. Det virker besværligt, hvis du vil opdele hvert ark / regneark i en stor projektmappe som separate Excel-, txt-, csv-, pdf-filer. Men med Kutools til Excel's Opdelt arbejdsbog værktøj, kan du hurtigt håndtere det.  Klik for 30 dages gratis prøveperiode med alle funktioner!
doc delt projektmappe 1
 
Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage.

pil blå højre boble Eksporter og gem regneark som ny projektmappe med VBA-kode

Denne følgende kode eksporterer hvert synligt regneark i en ny projektmappe og gemmer projektmappen med navnet på det originale ark i en nyoprettet mappe i samme sti som den aktive projektmappe. Gør som følger:

Trin 1: Hold nede ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.

Trin 2: Klik indsatte > Moduler, og indsæt følgende makro i modulvinduet:

VBA: Eksporter og gem regneark som ny projektmappe i en ny mappe.

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

Trin 3: Tryk på F5 nøgle til at køre denne kode. Og der vises en hurtigboks for at fortælle dig placeringen af ​​de nye eksporterede projektmapper, og alle regnearkene i den originale projektmappe er eksporteret til nogle nye separate projektmapper, der navngiver originale ark i en ny specifik mappe. Se skærmbilleder:

doc eksportark 7

pil blå højre boble Eksporter og gem regneark som ny projektmappe med Kutools til Excel

Hvis du har flere regneark, der skal gemmes som separat projektmappe, kan den første metode ikke være et godt valg. Og VBA-koden måske lidt kompliceret for Excel-begyndere. Her kan du bruge Opdelt arbejdsbog nytte af Kutools til Excel for hurtigt og nemt at eksportere og gemme hvert regneark i en projektmappe for at adskille ny projektmappe.

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

Trin 1: Klik Kutools Plus > Workbook > Opdel arbejdsbog .... Se skærmbillede:
doc eksportark 3

Trin 2: I Opdelt arbejdsbog dialogboks, gør som nedenfor:

doc eksportark 4
1: alle regnearknavne er kontrolleret som standard. Hvis du ikke vil opdele nogle af regnearkene, kan du fjerne markeringen af ​​dem;


2: Hvis du vil undgå at opdele de skjulte eller tomme regneark, kan du kontrollere Spring skjulte regneark over or Spring blanke regneark over.);


3: og du kan også kontrollere Angiv gem format, og for at vælge opdele arkene, gem derefter som tekstfil, pdf-fil eller csv-fil, i defualt. Hvis du ikke markerer denne mulighed, deler den ark og gemmes som projektmappe.

Trin 3: Klik derefter på Dele knappen, og vælg den mappe, du vil placere de nye projektmapper i. Se skærmbillede:
doc eksportark 6

Trin 4: Og klik derefter på OKderefter hvert afkrydsede regneark i Opdelt arbejdsbog dialogboksen eksporteres og gemmes som individuel projektmappe. Hver nye projektmappe er navngivet med det originale regnearknavn. Se skærmbillede:
doc eksportark 5

Klik for at få flere oplysninger om dette Split Workbook-værktøj.

pil blå højre boble Eksporter og gem hvert ark som ny projektmappe


Del hurtigt data i flere regneark baseret på kolonne eller faste rækker i Excel

Antag at du har et regneark, der har data i kolonne A til G, sælgerens navn er i kolonne A, og du skal automatisk opdele disse data i flere regneark baseret på kolonne A i den samme projektmappe, og hver sælger bliver opdelt i en ny regneark. Kutools til Excel's Opdel dato hjælpeprogram kan hjælpe dig med hurtigt at opdele data i flere regneark baseret på den valgte kolonne som vist nedenfor i Excel.  Klik for fuld 30 dages gratis prøveperiode!
doc split data 2
 
Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage.

Relaterede artikler:

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

Comments (63)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thanks, this was awesome. There are dozens of pages on the internet talking about how to do this. You guys are the only ones that got the VBA code right. Many thanks. I had a big monster workbook with about 100 tabs, all relatively small, and the VBA macro knocked it out in about five minutes. Thank God for smart guys like you. :)
Rated 5 out of 5
This comment was minimized by the moderator on the site
This has been extremely helpful, my job was doing some data management manually and this helped me automate it. I do have a question though, as the code is a bit over my head to figure out on my own.

What would I need to change to make it so that it always saves as a CSV file instead of an excel file? I know it'll be part of the IF VAL THEN CASES but I don't follow the formatting of that area.

Thank you,
Matt
This comment was minimized by the moderator on the site
Hi, Matt, I am glad that this article can help you. If you want to save sheets as new CSV files, this article https://www.extendoffice.com/documents/excel/5537-excel-batch-convert-to-csv.html lists the methods on exporting sheets as separated CSV files, hope it can do you a favor.
This comment was minimized by the moderator on the site
I have been using this VBA Code for some time and it worked like a charm until I changed computers. I have the same version of excel but now I am getting a Run Time Error "76" Path Not found. Any ideas what could be causing this? It looks like it is hanging up at MkDir. Any help you can provide is appreciated.
This comment was minimized by the moderator on the site
Hi, can I ask which office version you use?
This comment was minimized by the moderator on the site
I'm having this issue as well. I ran it once a month ago just fine and this came up just now.
This comment was minimized by the moderator on the site
You are amazing! Thank you so very much!
This comment was minimized by the moderator on the site
Thank you so much ! great and useful.
This comment was minimized by the moderator on the site
For Each xWs In xWb.Worksheets
How to do export only selected / grouped sheets to separate excel sheets by using this code.?
This comment was minimized by the moderator on the site
Hi there,

Keep getting a pop up that says 'compile error, invalid outside procedure' when i try and run the code. Any thoughts? Thanks for all your help.
This comment was minimized by the moderator on the site
Hi, Issybeee, I have update the VBA code in the tutorial, you can try the new one again.
This comment was minimized by the moderator on the site
For those of you who save macros in your "Personal.XLSB" or XLSTART (I see more questions below related to this), change the line

Set xWb = Application.ThisWorkbook to

Set xWB = ActiveWorkbook

That will make the macro run from the Active Workbook instead and save in a subfolder to that.
This comment was minimized by the moderator on the site
With the first method, if I hit F5, it opens a pop up window with the function "Go to". My excel is in spanish, im not sure if that is a factor. Any idea on how to fix it?
This comment was minimized by the moderator on the site
You can directly click the Run button of the Microsoft Visual Basic for Applications window.
This comment was minimized by the moderator on the site
Un aporte realmente útil. He probado el módulo con código VBA y funciona a la perfección. Muchas gracias, me has salvado una tarea que me hubiera llevado mucho tiempo con el mover y copiar.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations